P3rL Files 
P3rL RegExp 
The Last Spell 


How To Open File 


لغة البيرل من اللغات البرمجية التي تدعم التحكم بالملفات البرمجية وهناك دالة من الدوال ال Built-in‏ في لغة 
البيرل والدالة التي تقوم بهذه العملية هي دالة open‏ 


ويكون التمثيل البرمجي العام لهذه الدالة كالاتي من خلال هذا الكود 
*Code (1)‏ 


open (FH,path); 
File Handle J هذا الاسلوب البرمجي العام لتمثيل دالة ال nعopحیٹث يتم استخدام الدالة ومن ثم يتم استخدام‎ 
وبعدها يتم وضع المسار الخاص بالملف اما عن ال ۳۲4 فلا يشترط ان يتم استعمال هذين الحرفين دائما اي حرف‎ 
ل٣ اي حرف يود المبرمج ان يستخدمها فهذا ممكن شريطة ان تكون في حالة بعيدا عن التمتيل العام يكون التمثيل‎ 
الاسمي او الواقعي لملف موجود فعليا على النظام تتم كما يلي‎ 


*Code (2) 
open (FH,"/home/spawn/aa.pl"); 


تم شرح الاسلوب البرمجي والاسلوب الفعلي لتمثيل دالة ال معمه في كل من الكود 1 و الكود 2 
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How To Print 


اما اذا كان الملف البرمجي الذي یتم التعامل معه هو ملف يحتوي على ۲ ٥ار٥C‏ بغض النظر اذا كان المحتویى 
الخاص بهذا الملف هو كود برمجى او مجرد احرف فأن الاسلوب الاستدعاء فى كل من الحالتين هو الاستدعاء 
0 ي ي 
*Code (3)‏ 
open (FH,"/home/spawn/aa.pl");‏ 
while (<FH>)J{‏ 
print $_,"\n";‏ 


هذه هي الطريقة التي يتم اتباعها في لغة البيرل لطباعة محتوى ملف ما موجود على النظام وان ناتج تنفيذ الكود 
كألاتي في الشكل أدناه 


Figured) 
Print The Content 
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How To Write 


من العلميات التي تتم على برمجة الملفات هي عملية الكتابة على الملفات وهذه العملية تتم ايضا من خلال الدالة 


الطريقة الاولى من عملية الكاتبة على الملفات ويكون التمثيل البرمجي لهذه العملية كما يلي 

*Code (4) 4 4 
open (FH,">/home/spawn/aa.pl"); 

print FH "We are perl programmers"; 


واذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ تكون كألاتي 


Filê Edit View Bookmarks Tools 
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We are perl programmers 


Figure (2) 
Writing To File 


الطريقة الثانية لعملية الكتابة على الملفات تتم كما يلي من خلال هذا المقطع البرمجي 
*Code (5)‏ 
open (FH,"> >/home/spawn/aa.pl");‏ 
print FH "We are good programmers";‏ 


للوهلة الاولى يبدو ان كل من الطريقة الاولى والطريفة الثانية هي طرق متشابهة ولكن اذا تم التدقيق في ال 
(3) ٣ا۴9‏ سوف يتم ملاحظة الفرق الاساسي بين هاتين الطريقتين 


Figure(3) 
Main Difference 
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اولا 
*Code(6)‏ 
چ 
فا ارت س اكا ى اقات هر سارت مد عى اة الح ب ا لى ال ئ اتاق 
والمقطع البرمجي الاتي سوف يوضح الفرق بين الطريقتين بصورة موسعة اكثر 


*Code(/7) 
open (FH,"> >/home/spawn/aa.pl"); 
print FH "987654321"; 


يوضح ال(4)٥‏ ںاو۴ شكل الملف قبل ان يتم تطبيق المقطع البرمجي أعلاه 
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Figure (4) 
B4 Execution 


حيث يوضح الشكل أعلاه ان الملف الذي يحمل الاسم |مر.» هو عبارة عن ملف يحتوي على سطر واحد وهذا 
السطر هو عبارة عن ارقام من (1-9) فقط 


اما اذا تم تنفيذ المقطع البرمجي (7) فأن ناتج تنفيذ هذا المقطع موضح بال(5)٥e‏ ںو٣۴‏ 


GE e da4. pI - FNTIE 1 
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Figure(5) 
After Execution 


شح الشکل أعلاہ ان اذا تم اس يقة ¿ سوف يت تفاظ بالذ تم اضافة الذ ید 
يوضح |۱ أعلاه ان اذا تم استعمال طريقة السهمين سوف يتم الاحتفاظ بالنص القديم ويتم اضافة النص الجدي 
عليه اي بدون خسارة البيانات القديمة 
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ثانيا 
*Code(8)‏ 
ج 
هذا الاسلوب من الكتابة على الملفات يعتمد على اسلوب اضافة النص الجديد مع حذف النص القديم وعدم الاحتفاظ 
يه 
والمقطع البرمجي ألاتي سوف يوضح هذا الاسلوب بصورة موسعة اكثر 
*Code(9)‏ 


open (FH,">/home/spawn/aa.pl"); 
print FH "10 20 30 40 50 60 70 80 90"; 


ویوضح Figure(6)|l‏ شكل الملف ومحتواه قبل تنفيد المقطع البرمجي أعلاه 
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Figure(6) 
B4 Execution 


يوضح ال(6)٥ا‏ و۳۴1 ان الملف الذي يحمل الاسم |م.» هو عبارة عن ملف يحتوي على سطرين يحتوي على 
تسلسل عددي من ال( 9-1) (1-9) فقط 
اما اذا تنفيذ المقطع البرمجي (9) فأن ناتج تنفيذ هذا المقطع البرمجي هي كالأتي 


00 e AAP - KWNTILE 1 
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Figure (7)‏ 
After Execution‏ 
يوضح الشكل (7) ناتج تنفيذ البرنامج مع ملاحظة انه تم الغاء كافة محتويات الملف وأعتماد التغييرات الجديدة 
على الملف 
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*Note 
تجدر الاشارة الى نقطة هامة وهي انه اذا تم تنفيذ اي عملية من هاتين العمليتين التي سبق ذكرهم على اي ملف‎ 
وكان الملف الذي تتم الكتابة عليه ملف مفتوح فسوف تظهر رسالة تحذيرية للمستخدم تكون كالأتي كما هو موضح‎ 
Figure(8)لاڊ‎ 


* File Changed on Disk -KWrite 


1 The file 'file:/home/spawn/aa.pl' was modified by another program. 
What do youl wanî to do? 


View Difference 


Overwrite ¦ Ww Reload File | Ww Ignore ا‎ 3¢ Cancel إ‎ 


Figure(8) 
Warning Msg 
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How To Read File 


احدى الطرق التي توفرها لغة البيرل لقراءة الملفات هي باستخدام دالة القراءة 

*Code(10) 
read 

وتعتبر هذه الدالة من الدوال المبنية في لغة البيرل او ما يطلق عليها اسم 1-٤[1را8ويكون‏ التمثيل البرمجي لهذه 

الدالة كما يلي من خلال هذا المقطع البرمجي 


*Code(11) 
read (File Handle,$var,offset); 


هذا الاسلوب البرمجي العام لتمثيل هذه الدالة اما عن طريقة استخدام هذه الدالة في برناومج فعلي لكي يتم تنفيذها 
على ملف موجود فعلا على النظام فهذه الطريقة يكون تمثيلها البرمجي كما يلي من خلال هذا المقطع البرمجي 
*Code([12)‏ 
open (FIL,"/etc/services");‏ 
read (FIL,$a,100);‏ 
print $a;‏ 


واذا تم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية التنفيذ هذه تكون كما يلي من خلال ال(ure)9و۴‏ 


Figure (9) 
OutPut Of Read 


خن ها الفقطم البزمجي ت انتمل دالة ال عرو بالصورة العادية الى ب انك امها بها ومن ت فى الخطرة 
التالية تم استعمال دالة القراءة في الخطوة الخاصة بدالة القراءة يجب ان يتم ملاحظة ما يلي 

اولا 

ان ال عا ۴1e] nd‏ الذي يتم استخدامه في دالة ال عم یجب وبشکل ملزم ان یکون نفس FileHqndle J|‏ 
الذي تم استعمالة في.دالة القراءة يعني نكلمات أخرق أكثر توضيحا المقضود هى 


Figure (10) 
FileHandle 
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و ال(e)10 Figur‏ ال ۴1]eH ande‏ التي تم استخدامها في المقطع البرمجي(12) 

ومن تم تم استعمال المتغير يحمل الاسم ه$الذي يعمل على خزن ال ٤ءء]fمالذي‏ ستتم قراءتها من الملف اي أن 
بعدد الارقام التي سيتم وضعها في داخل المقطع البرمجي سوف يتم قراءة احرف من الملف الذي وضع في دالة ال 
open‏ في المقطع البرمجي )12( تم ادخال الرقم )100( اي في هذه الحالة سوف يقوم البرنامج في هذه الحالة 
بقراءة (100) حرف من الملف المطلوب قراءته وهكذا العملية تستمر اي أن الرقم وعدد الاحرف في حالة 

ترابط مع بعضهم اي ان عدد الارقام الموجودة في ال tعءffه‏ يساوي عدد الاحرف التي سوف يتم قراءتها من 
الملف 


How To Assign 


من الممكن ان يقوم المبرمج بعملية اسناد لمسار الملف الذي يعمل عليه الى متغير من نوع »اء ءوهذا النوع من 
العمليات يتم تمثيله كما يلي من خلال هذا المقطع البرمجي ألاتي 
*Code(13)‏ 
ppath="/home/spawn/aa.pl";‏ 
open (FH,$path);‏ 
while (<FH>){‏ 
print $_,"\n"‏ 


N N TT 


کالاتي 


Figure(11) 
Assign The Path 


How To Report Errors 


في بعض الحالات التي يتم كتابة ملف يتعلق ببرمجة الملفات في لغة البيرل فهذا يعني ان المقطع البرمجي لا بد له 

ان يتضمن مسار لملف ما فماذا يحدث عند هذه a RE TT‏ 

تتكفل بهذه العملية وهذه الدالة هى دالة 

+*Code(15) ٠ 
die 


اما عن طريقة استعمال هذه الدالة في مقطع برمجي فعلي فأن العملية تتم بالشكل ألاتي 
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*Code(16) 


open (FH,"/home/spawn/aas.pl") 
|| die "Cannot find such file"; 


وان ناتح تنفيذ هذا المقطع البرمجي يكون كالأتي بالشكل ألاتي 


Figure(12) 
Die Func 
How To Count Lines 


ان برنامج ja Count Lines J‏ البرامج الشائعة في اغلب اللغات البرمجية وهذا البرنامج من الممكن ان تتم 
برمجته في لغة البيرل باسلوب سهل ومرن جدا ويكون كالاتي 
*Code([ 7)‏ 
open (FH,"/home/spawn/aa.pl");‏ 
Şa+ + while(<FH>);‏ 
print $a;‏ 
حيث يقوم هذا المقطع البرمجي أعلاه بعمل حساب لعدد الاسطر الموجودة في الملف الذي تم اعطاءه في المقطع 
أعلاه والصورة الناتجة عن تنفيذ هذا المقطع البرمجي هي كألاتي 


Figure (13)‏ 
Result‏ 
يوضح ال(13) مو۴ ان الملف الذي تم أدخاله في المقطع البرمجي أعلاه هو عبارة عن ملف مكون 26 سطر 
فقط اي أن هذا الرقم هو رقم يشير الى عدد الاسطر الموجودة في الملف 


How To Use Regexp 


في بعض الاحيان تكون بعض الملفات التي يتم العمل عليها هي عبارة عن ملفات كبيرة من ناحية عدد الاسطر 
SRR E SL as)‏ 
الملفات فأن لغة البيرل توفر سهولة البحث عن الكلمة المطلوبة من خلال استخدام تiية Regular Expression‏ 
او التعابير القياسية او المنتظمة ويوضح المقطع البرمجي ألاتي الكيفية التي تتم بها هذه العملية من خلال لغة 
البيرل 
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*Code(18) 


open (FH,"/home/spawn/aa.pl"); 


while (<FH>)J{ 

if /perl/){ 

print "There is a match","\n"; 
1 
else{ 

print "There is no match","\n"; 


واذا تم تنفيذ هذا المقطع البرمجي أعلاه فأن ناتج تنفيذ هذا الكود سوف يكون كألاتي 


Figure (14) 
RegExp With Files 


يوضح(14) ٥۲ا‏ و۳1ناتج تنفيذ المقطع البرمجي أ علاه ويلاحظ على هذا المقطع انه يقوم بعمل فحص كامل على 
ال 


محتوى الملف المعطى في البرنامج وأن محتوى الملف المعطى في البرنامج هو كالأتي 


View Bookmarks Tools Settings Help 
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C programmer 
=» Python, Ruby programmer 
=» perl programmer 
=2 GIMP Designer 


Figure (15) 
File Content 


File Edit 


Etoarm. 


striker . 
Spawn . . 


Snix, 


وأن اسلوب عمل هذا الكود كان متمثلا بعمل فحص لكافة اسطر التي يحتويها الملف وفي السطر الذي وجد فيه 
طاق ت ارمع حرط الاق وقي الانطن الاخرى التي لم تكتر ي على اة اللاو عتدها م باع 


الجملة او الامر البرمجي الذي يشير الى عدم وجود تطابق في السطر 
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ومن الممكن ان يتم كتابة هذا البرنامج بصيغة اخرى وهي كألاتي 
*Code[19)‏ 
open (FH,"/home/spawn/aa.pl");‏ 
while (<FH>){‏ 
if ($_ =~ /perl/){‏ 
print "There is a match","\n";‏ 
1 
else{‏ 
print "There is no match","\n";‏ 
1 
} 


في كل الحالتين يكون الناتج هو نفس الناتج وللمبرمج حرية اختيار الطريقة الانسب 
System Function‏ 


من الممكن على المبرمج في لغة البيرل ان يقوم باستعمال الدوال العادية التي تطبق على الملفات في الحالات 
العادية ومن امثلة هذه الدوال هى 
+*Code(20) ٠‏ 
rename‏ 
*Code(21)‏ 
chmod‏ 


يتم تطبيقها في لغة البيرل بنقس الطريقة التي يتم تنفيذها في الحالات العادية 


Unlink 


هذه الدالة يتم اسخدامها من اجل مسح الملفات التي ليس للمستخدم او المبرمج حاجة بها ويكون التمثيل البرمجي 
الخاص بهذه الدالة كما يلى 
+*Code( ٠‏ 
$x=unlink("/home/spawn/bb.p1");‏ 
print $x;‏ 
الان عندما يتم تنفيذ هذا المقطع البرمجي فأن هذا البرنامج سوف يعيد رقم وهذا الرقم المعاد من قبل البرنامج يشير 
الى عدد الملفات التي تم الغاءها من النظام بنجاح ويوضح ال(ure)16‏ و۴ التالي ناتج تنفيذ هذا المقطع البرمجي 


Figure(16) 
Result 
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How To Reverse File 


ان عملية عكس المحتويات باستخدام دالة ال reverse‏ هي عملية مقتصرة على ۱ لمتغيرات التي تکون من نوع 
المصفوفات لذا في هذه الحالة اذا كان المبرمج يرغب بأن يقوم بعكس محتويات لملف يجب ان يتم اسناد محتوى 
الملف الى مصفوفة لكي تتم عملية العكس بصورة صحيحة والمقطع البرمجي ألاتي يوضح الكيفية التي تتم بهذا 


هذه العملية 
*Code(23)‏ 


open (FH,"/home/spawn/aa.pl"); 
while (<FH>)J{ 


push (@array,$_); 

} 
@rev=reverse(@array); 
print @rev; 


المقطع البرمجي ألاتي يوضح الطريقة التي يتم من خلالها عكس محتوى الملف ويوضح ال(15) Figure‏ 
شكل الملف من قبل ان تتم عملية عكس المحتوى عليه 
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Storm . == programmer 
Striker „, =z=python progr ammer 
Spawn. . =*perl programmer 
Dj. =2Shell programmer 
Figure(17) 
B4 


هكذا يكون شكل الملف قبل ان تتم عملية عكس المحتوى ولكن بعد ان تتم عملية عكس محتوى الملف فأن ناتج 
تنفيذ المقطع البرمجي المرقم بالرقم 22 سوف تكون كالاتي 


Figure (18) 
After 
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اولا ان يتم استعمال مصفوفة لكي يتم ادخال المتغير_$ 
اليها من خلال دالة ال روم على أعتبار ان المتغير أعلاه الذي يمثل النص الموجود في الملف هو عبارة عن 
ثانيا يتم الخروج من ال رهه[الخاصة بال ع۷11 
ثالتا يتم ادخال مصفوفة اخری تحتوي هذه المصفوفة على الدالة المختصة بعمل ال ع5٣ع۷ع٣‏ ومن ثم یتم ادخال 
المصفوفة الاولى التي تم ادخالها في while J loop‏ 
رابعا يتم طباعة المصفوفة الثانية وعندها يتم عكس الملف 
Control Text‏ 
في كثير من الملفات وخاصة الملفات المتعلقة بالنظام تكون البنية العامة لهذه الملفات هي كألاتي 


# #BeILC/SerVICES: 
# $Id: services 105871 2005-12-07 06:53:01Z flepied $ 
# 
# Network services, Internet style 
# 
# Note that it is presently the policy of IANA to assign a single well-known 
# port number for both TCP and UDP; hence, most entries here have two entries 
# even if the protocol doesn't support UDP operations. 
# Updated from RFC 1700, ` ‘Assigned Numbers'"' (October 1994]. Not all ports 
# are included, only the more common ones. 
# 
# The latest IANA port assignments can be gotten from 
#. http ://www.iana.org/assignments/ port -number s 
# The Well Known Ports are those from Û0 through 1023. 
# The Registered Ports are those from 1024 through 49151 
# The Dynamic and/or Private Ports are those from 49152 through 65535 
# 
# Each line describes one service, and is of the form: 
# 
# service-name port/protocol [aliases ...] [# comment ] 
tcpmux. . 1f/teM. . 4 # TCP port service multiplexer 
tcepmUuUX, . i/udp. . # TCP port service multiplexer 
rje. ( 5B7tePp. # Remote Job Entry 
rje. 57udp. . # Remote Job Entry 
echo, rT#tcp 
echo, T7udp 
discard. . 9g/tep. . sink null 
discard, 9g/udp. . sink null 
systat. . 11/tePp. . users 
systat. . 117udp. . users 
Figure (19) 


File Content 
لذا لو‎ useless comment المقصود من الشكل أعلاه هو ان الملفات هذه تحتوي على العديد من التعليقات و ال‎ 
المبرمج في يرغب بأن يقوم باستخلاص ال اءاى من الملف المقطع البرمجي ألاتي يقوم بهذه العملية‎ 
*Code (24) 
open (FH,PATH"); 
while (<FH>)J{ 
chomp 
sS#./ 1; 
print $_; 


ففي هذه الحالة عندما يتم تنفيذ هذا المقطع البرمجي على الملف المحدد في البرنامج يتم استعمال هذا البرنامج 
والسطر الثالت 
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يتم استخدام هذا الملف من أجل الغاء ال ع1] سعم في الملفات 
السطر الرابع 


يتم من اجل الغاء التعليقات او ال ئ" ع ١٥ء‏ الموجودة في الملف الذي يتم العمل عليه 
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*Code (25) 
chomp 


*Code (26) 
S/#./1; 


ıı P3rL Files 


In The ShaDow of The BlacK SalnT 


The Modules Of The Files 
ان المفات في لغة البيرل الٿي تعتبر من الاركان الاساسية التي توفر الموديلات البرمجية مرونة كبيرة في التعامل‎ 


هذا الجزء سوف يتم التطرقى الى اهم الموديلدت التي تتعامل مع الملفات واملوب البرمجة بها واستلمار الامكانياك 
التي تحتويها للحصول على أكبر قدر من الراحة في التعامل مع الملفات 


File::Basename 


1-basename 
يحتوي هذا الموديل على دالتين لها عمل مهم و الدالة الارلى التي يحتويها هذا الملف هي الدالة »۸ء45 طوهذە‎ 
الدالة اذا تم أدخالها في كود برمجي تعمل على ايجاد الاسم الاخير للملف الذي يتم التعامل معه ويكون التمثيل‎ 
البرمجي الخاص بها كما يلي من خلال هذا المقطع البرمجي‎ 
*Code (27) 
use File::Basename; 


Şa="/home/spawn/aa.pl"; 
$b=basename($a); 


print $b; 
يعمل المقطع البرمجي أعلاه على ايجاد اسم الملف الذي يتم التعامل معه في البرنامج وناتج تنفيذ هذا المقطع‎ 
البرمجي هو كالاتي‎ 
Figure (20) 
basename 
dirname 


اما الدالة الاخرى التي يحتويها هذا الموديل هي دالة ال dirname‏ هي من ناحية العمل مشابه لما تقوم به الدالة 
السابقة ولكن هذه الدالة تختلف عن الدالة السابقة انها تقوم بأعطاء اسم المجلد الذي يحتوي على هذا الملف 
ويكون التمثيل البرمجى لهذه الدالة نفس التمثيل البرمجى للدالة السابقة 
+*Code (28) ٠ ٠‏ 
use File::Basename;‏ 
Şa="/home/spawn/aa.pl";‏ 
$b=dirname($a);‏ 
print $b;‏ 


ıı P3rL Files 


In The ShaDow of The BlacK SalnT 


Figure(21) 
Dirname 


File::Copy 


يعتبر هذا الموديل من الموديلات الاساسية التي تقدم اساسيات وخواص الانتقال و التنقل بين الملفات ويحتوي هذا 
الموديل على دوال منها 


COPY 


يكون عمل هذه الدالة مختصرا على النسخ كما هو واضحا من الاسم ولكن هذا النسخ يكون معتمد على محتوى الى 
الملف اي ان هذه الدالة تعمل على نسخ محتوى الملف من ملف ال ع٣‏ ا0ء الى ملف ال t10۸هہdes)iويكون‏ 
التمتيل البرمجي لهذه الدالة كما يلي في هذا المقطع البرمجي 
*Code (29)‏ 
use File::Copy;‏ 
copy ("/home/spawn/aa.pl","/home/spawn/cc.pl");‏ 
الان عندما يتم تنفيذ المقطع البرمجي أعلاه عندها سوف یتم نسخ محتویات الملف اللاول والذي يحمل الاسم آم.ي. 
الى الملف الثاني الذي يحمل الاسم pI‏ .٣ءوتجدر‏ الاشارة الى ان هذا الموديل له القدرة على عمل ال create‏ 
اي انه اذا کان ملف ال 0۸])ه"])ومن غیر موجود في المكان الذي ستتم عملية النسخ اليه ففي هذه الحالة سوف 
هذا الموديل بتوليد هذا الملف لكي تتم عملية النسخ و ال(19)ء u‏ وآ٣يوضح‏ الطريقة التي تتم بها عملية النسخ 


غر - او 2 ا ج 
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Figure(22) 


Copy (source,destination) 
Cp 
هذه الدالة من الدوال التي يتم استعمالها في عمليات النسخ وهذه الدالة تعمل على نسخ الملف وليش نسخ محتواه‎ 
كما كانت تفعل الدالة السابقة ويكون التمثيل البرمجي لهذه الدالة كما يلي‎ 


PL P3rL Files 
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*Code (30)‏ 
use File::Copy "cp";‏ 
cp (“/home/spawn/aa.p!","/home/spawn/Desktop");‏ 
اما هذه الدالة فأن العمل الذي تقوم به هو عمل نسخ صرف اي تقوم بنسخ الملف [م.هه الى المسار المحدد في 


Move 


اما عن هذه الدالة فأن عملها يكون اشبه بعمل الامر .ء الذي يعمل على قص الملف من المكان الموجود فيه 
ولصقه في مكان اخر من دون الاحتفاظ بنسخة من الملف في المكان الذي تم قصها منه ويكون التمثيل البرمجي 


لهذه الدالة كما يلي من خلال هذا المقطع البرمجي 
*Code (31)‏ 
use File::Copy;‏ 


move ("/home/spawn/cc.pl","/home/spawn/Desktop"); 


File::Temp 


قر هذا المردل فن اقل المرفاات البر ية التي بك اها فى عة اتقام مع قات ال وو 
ومن اهم الدوال التي يحتويها هذا الموديل هي دالة مص ٥1::ع۴1‏ حيث تقوم هذه الدالة بالتعامل مع هذا النوع من 


الملفات التي تكون من نوع ملفات ال ر" ع] ويكون اسلوب التمتيل البرمجي لها بالشكل اا 
*Code (32)‏ 


use File::Temp; 
Ştmp = new File::Temp( UNLINK => 0, SUFFIX => ".pl’); 
print $tmp "we are perl programmers\n"; 
print "Filename is $tmp\n"; 
هذه هي الطريقة العامة التي يتم من خلالها توليد الملفات المؤقتة في لغة البيرل و الان اذا تم تنفيذ هذا المقطع‎ 
۴1وure)20(لاب البرمجي فأن الناتج من عملية التنفيذ قسوف تكون كما يلي‎ 


Figure(23) 

Temp File 
۸0١ ويوضح الشكل الذي في الاعلى المسار الذي تم توليد الملف المؤقت فيه اي في مجلد ال مرفي مسار ال‎ 
الخاص بال عو ۲٥٠٣ء و الفعل البرمجي على هذا الملف يكون كألاتي‎ 
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E /home/spawnı/tmp 


Location:‏ ه 
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We are perl programmers 


Figure(24) 
Path & Content of (Temp File) 


*Code (33)‏ 
SUFFIX => '".pl'‏ 
هذه الجزئية تكون مسؤولة عن امتداد الملف فهذا يعني ان الملف المؤقت الذي سوف يتم انشاءه و التعامل معه 
E‏ هذا الملحق سوف يکون امتداد الملف مطابق لهذا الملحق 
ويتيح هذا الموديل ايضا امكانية تحديد المسار الذي سوف يتم توليد المؤقت فيه وفق رغبة المبرمج وحسب المكان 
الذي يرغب ان يولد الملف المؤقت فيه وتتم هذه الطريقة كما يلي من خلال هذا المقطع البرمجي التالي 
*Code (34)‏ 
use File::Temp;‏ 
Ştmp = new File::Temp( UNLINK => 0, SUFFIX => '.pl',‏ 
DIR =>"/home/spawn/Desktop");‏ 


print $tmp "we are perl programmers\n"; 
print "Filename is $tmp\n 


الان لو يتم تنفيذ هذا المقطع البرمجي فان الناتج من عملية تنفيذه سوف يكون كألاتي من خلال ال(ure)21و۴1‏ 


Figure(25) 
Result With Specific Dir 
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Figure (26) 
Result Of Execution 
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How To Stat 


هذا الموديل البرمجي يقوم بعمل بسيط ولكن مهم في نفس الوقت هذا الموديل يكون مسؤول عن اعطاء معلومات 
عن حالة الملف الملف الذي يتم التعامل معه في المقطع البرمجي ويكون التمثيل البرمجي العام لهذا الموديل كما 
*Code (35)‏ 
use File::stat;‏ 
pperl = stat("/home/spawn/aa.pl");‏ 
print $perl->size,"\n";‏ 
print $perl->atime,"\n";‏ 
print $perl->mtime,"\n";‏ 
print $perl->uid,"\n‏ 
print $perl->gid,"\n‏ 
print $perl->mode,"\n‏ 
print $perl->nlink,"\n‏ 


والان اذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ هذه سوف يكون كما يلي من خلال(re)23‏ ںو٣۴‏ 


Figure (27) 
File Stat 


ان ناتج تنفيذ هذا الكود هو عبارة عن ارقام وهذه الارقام هي عبارة عن ارقام تعطي حالة تفصيلية لحالة الملف 
الذي يتم العمل عليه في المقطع البرمجي أعلاه وهذه الدوال التي تم استخدامها في المقطع البرمجي فهي تعني 


ال 
Size‏ -1 


ان الناتج من هذه الدالة هو عبارة عن رقم يشير الى حجم الملف الذي يتم التعامل معه في المقطع البرمجي وهذا 
الرقم يكون معنون بصيغة البت وهذا يعني ان حجم الملف الذي يحمل الاسم [مر. يبلغ من الحجم 98 بت 


aa.pl (35 B} Perl Program 


Figure (28) 
File Size 
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2- atime 


هذه الدالة يتم استعمالها مع الملف لکي یتم معرفة 0٥٤655 1٥‏ ائ[ حيث من خلال هذه الدالة يتم معرفة هذه 
الخاصية 


3- mtime 
Last modified time هذه الدالة هي الدالة التي يتم استخدامها من أجل معرفة ال‎ 
4- uid 
هذه الدالة يتم استخدامها من اجل ان يتم معرفة ال 4 الخاصة بالملف الذي تم التعامل معه في المقطع البرمجي‎ 
5- gid 


هذه الدالة التي يتم التعامل معها من اجل معرفة ال إ1 الخاصة بالملف الذي يتم التعامل معه في المقطع البرمجي 


6- mode 
هذه الدالة التي يتم التعامل معها من اجل معرفة نمط الملف الذي يتم التعامل معه في المقطع البرمجي‎ 
7-nlink 


هذه الدالة التي يتم التعامل معها من أجل معر فة ال )ہا number of‏ للملف الذي يتم التعامل معه في المقطع 
البرمجي 
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How To Find Files 
File::Find 


يتم استخدام الموديل البرمجي من أجل ان يتم البحث عن الملفات في لغة البيرل 


Find 
هذه الدالة التابعة لهذا الموديل تقوم بمهمة البحث عن الملفات المطلوبة لمسار محدد مسبقا من قبل المبرمج ويكون‎ 


التمتيل العام لهذا الموديل كما يلي في المقطع ألاتي 
*Code (36)‏ 


use File::Find; 
find sub { print "$File::Find::name\n" if -f }, "/home/spawn/"; 
/home/spawn هذا المقطع البرمجي هو البرنامج المسؤول عن الأبحث عن الملفات في مسار ال‎ 


*Code (37)‏ 
1 
هذه الجزئية من المقطع البرمجي تكون مسؤولة عن طباعة المسار اذا كان الملف الذي نبحث عنه هو ملف فعلي 
اي بعبارة اخرى الناتج من عملية الطباعة ملفات فقط اي المجلدات لن يتم عرضها في ناتج البرنامج هذا المقصود 
بعبارة الملف الفعلي ولهذا تم ادراج هذه الفقرة ذ في المقطع البرمجي وللمبرمج حرية الاختيار بين وضعها في 
ايرنام اورف ل ا 
أما الناتج من تنفيذ المقطع البرمجي أعلاه فأنه يكون كألاتي 


Figure (29) 
Part Of Find Result 
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How To Compare 
File::Compare 


تتيح لغة البيرل كافة المبرمجين القيام بعمليات المقارنة بين الملفات التي يتم التعامل معها وهذه العملية من الممكن 
ان يتم القيام بها من خلال الاستعانة بالموديل الذي يحمل الاسم ٤۲۾مر"۳٥)::٥][۳1‏ لكي يتسنى للمبرمج ان يميز 
الفرق بين الملفات التي يتعامل معها 
ويكون التمثيل البرمجي لعملية المقارنة بين الملفات كما يلي من خلال المقطع البرمجي ألاتي 

*Code (38) 
use File::Compare; 


if (compare(/home/spawn/aa.p!","/home/spawn/ss.p1l") == 0) { 
print "They're equal\n 


j} 


else { 
print "Not Equal\n 


وضح المقطع البرمجي أعلاه الطريقة التي تمت بها المقارنة بين الملفات ولكن تجدر الاشارة الى انه اسلوب 
المقارنة بين الملفات لايكون معتمد على اسم الملف ولكن معتمد على محتوى الملف يعني اذا كان محتوى الملف 
الاول مطابق لمحتوى الملف الثاني فهذا يعني انه عملية المقارنة تشير الى وجود تطابق اما اذا كان المحتوى 
مختلف فأن عملية المقارنة سوف تشير الى وجود اختلاف بين محتوى الملف الاول ومحتوى الملف الثاني 


Figure(A) (30) 
Equal 


Figure (B) (30) 
Not Equal 


يشير الشكل الاول الى وجود حالة تطابق بد بين الملفين الذين تمت المقارنة بينهما وكان محتواهم متطابق لذا تم 
الحصول على علامة التطابق ومن ثم في الشكل الثاني تم التلاعب بمحتوى احد الملفين بحث اصبح محتواهما 
مختلف عندها ز تم الحصول على اشارة عدم جود تطابق بي بين الملفين 
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List:: Util 


يحتوي هذا الموديل البرمجي على عدد من العمليات التي تمكن المستخدم على التعامل بحرية أكبر مع الملفات في 
لغة البيرل وتتيح للمبرمج ان يكون على قدر أكبر من السيطرة على ما تحتويه الملفات من معلومات وبيانات 
وكيفية التعامل معها 
1-shuffle‏ 
هذه الدالة تتعامل مع الملف المعطى لها بصورة عادية ولكنها تعمل على أعادة محتويات الملف الى المستخدم 
بصورة عشوائية وغير منتظمة يكون التمثيل البرمجي لهذه الدالة كما يلي من خلال هذا المقطع البرمجي 
*Code (39)‏ 
use List:: Util qw(shuffle);‏ 
open(FH,"/home/spawn/aa.pl");‏ 
while (<FH>)J{‏ 
push (@lines,$_);‏ 
@lines=shuffle(@lines);‏ 
print @lines;‏ 
اما الان عندما يتم تنفيذ هذا الكود البرمجي فأن النتاتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل 
التوضيحي الذي يوضح ناتج التنفيذ 


Figure (31) 
Result Of Shuffling 


ولكن تجدر الاشارة الى ان عملية التوليد العشوائية التي تمت على الملف في المقطع البرمجي أعلاه لا يؤثر على 
كما تمت كتابنة فن المرة الال 
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Figure (32) 
The Original Content 
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2- maxstr 


هذه الدالة تقوم بقراءة محتويات الملف سطر بسطر ومن تم بعد ذلك عند الانتهاء من عملية القراءة الخاصة بالملف 
تقوم هذه الدالة بأعادة أكبر قيمة موجودة في الملف يكون التمثيل العام لهذه الدالة كما يلي من خلال المقطع 
البرمجى أدناه 


*Code (40) 
use List:: Util qw(maxstr); 
open(FH,"/home/spawn/aa.pl"); 
while (<FH>)J{ 
push (@lines,$_); 
ey 
print @lines,"\n"'; 

الان عندما يتم تنفيذ المقطع البرمجي أعلاه ويتم قراءة محتويات الملف فأن البرنامج سوف يعيد في هذه الحالة 
السطر الذي يحمل أكبر قيمة حرفية اي بعبارة اخرى ان السطر الذي سيعاد هو السطر الذي يحتوي على أكبر عدد 


من الحروف فيه 


Figure (33) 
Max String 


هذه كانت في حالة الاحرف اما في حالة الارقام فالامر سيان سوف يتم أعادة الرقم الأكبر حتى وان كانت الارقام 
مكونة من نفس عدد المراتب كالتالي 
*Code (41)‏ 
use List:: Util qw(maxstr);‏ 
open(FH,"/home/spawn/ss.p1");‏ 
while (<FH>)J{‏ 
push (@lines,$_);‏ 


@lines=maxstr(@lines); 
print @lines,"\n"'; 


وناتج التنفيذ من هذا المقطع البرمجي هو الناتج الان 


Figure (34) 
Max Str 
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Figure (35) 
Content 


يوضح ال(35)٥‏ و۴1 ان الدالة البرمجية ٣)ئء×هرحتى‏ مع الارقام المتساوية من ناحية عدد المراتب تعمل مقارنة 
بين هذه الاعداد وتعيد العدد الأكبر بينها 


3-minstr 


يلاحظ من اسم الدالة أعلاه انها تقوم بعمل مشابه لعمل الدالة السابقة ولكن بصورة معكوسة حيث ان هذه الدالة 
تقوم بقراءة الملف المعطى لها في المقطع البرمجي ومن ثم تعمل على اعادة السطر الاقصر اي السطر الذي 
يحتوي على العدد الاقل من الاحرف والرموز ويكون التمثيل البرمجي العام لهذه الدالة هو كما يلي 
*Code (42)‏ 
use List:: Util qw(minstr);‏ 
open(FH,"/home/spawn/aa.pl");‏ 
while (<FH>)J{‏ 
push (@lines,$_);‏ 


@lines=minstr(@lines); 
print @lines,"\n"'; 


الان عندما يتم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ هذه سوف تكون كألاتي من خلال الشكل 


التوضيحي أدناه 


Figure(36) 
Minstr 
Figure هذا يعني ان السطر الذي يحتوي على اقل عدد من الاحرف والرموز هو السطر الموضح في ال(36)‎ 
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FileHandle 
1- open 


يوفر هذا الموديل دالة داخلية فيه هي دالة ال رعره وهذه الدالة كما هو واضح من الاسم فهي تقوم بفتح الملف 
المعطى لها في المقطع البرمجي من ثم تقوم بطباعة محتويات هذا الملف يكون التمثيل البرمجي العام لهذه الدالة 


کما یلی 
*Code (43)‏ 
use FileHandle;‏ 
$fh = new FileHandle;‏ 
if ($fh->open("/home/spawn/aa.pl")) {‏ 
print <$fh>;‏ 
$fh->close;‏ 


وعندما يتم تنفيذ هذا المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ هذه يكون كالأتي من خلال الشكل أدناه 


Figure (37) 
Open Handle 


2- write 


هذا ليس الاسم الرسمي لهذه الدالة ولكن هذا هو العمل الذي تقوم به بالتحديد حيث انها تقوم بارسال بيانات الى 
الملف المعطى في المقطع البرمجي ومن ثم تقوم بعملية الكتابة على الملف ويكون التمثيل البرمجي لها كام يلي من 


خلال هذا المقطع 
*Code (44)‏ 
use FileHandle;‏ 


$fh = new FileHandle "> /home/spawn/ss.pl"; 
if (defined $fh) { 
print $fh "We are perl programmers\n"; 
$fh->close; 


اسلوب عمل هذا البرنامج يكون كما يلي يتم اسناد الكائن الذي يحمل الاسم الى مسار ملف ما من المفترض لهذا 


Pv P3rL Files 
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الملف ان يكون موجود فعلا على النظام ومن ثم يتم استدعاء دالة التعريف حيث اذا كان المسار للملف المعطى هو 
فعلا معرف عندها سوف يتم تنفيذ الشرط وتنفيذ جملة الطباعة الى الملف المعطى ويكون ناتج تنفيذ البرنامج كما 


يلي من خلال هذا الشكل أدناه 
OOOO OO‏ 
Location: | lê /homespawn‏ 2 
SKEKESETEKTSEDS‏ 
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We are perl programmers 


Figure (38) 
Write FileHandle 


Tie::File 


هذا الموديل يقوم بالتعامل مع الملف المعطى بالمقطع البرمجي على انه مصفوفة وكافة العمليات التي تتم على 
المصفوفة من الممكن ان تتم على الملف لانه محتوى الملف اصبح الان مصفوفة ويكون التمثيل البرمجي لهذا 
الموديل هو كما يلي 
*Code (45)‏ 
use Tie::File;‏ 
tie @array,'Tie::File',"/home/spawn/aa.pl";‏ 
print @array;‏ 


والان اذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ هذه سوف يكون كألاتي من 


Figure (39) 
Result Of Reading 

وان سبب ظهور ناتج عملية الطباعة بهذه الصورة فان السبب في هذا هو أنه وحتوى ملف قد اصبح الان مصفوفة 
وعند طباعة المصفوفة فأن ناتج عملية الطباعة يكون كما في 39 ureو۴‏ 

Printing Single Line 
ولكن بما أنه محتوى الملف الان قد اصبح مصفوفة اذن في هذه الحالة من الممكن لن تتم طباعة اسطر الملف كل‎ 
سطر بمفرده وذلك على اعتبار ان اسطر الملف هي عناصر المصفوفة وهذه العملية تتم من خلال المقطع البرمجي‎ 
ال‎ 
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*Code (46)‏ 
use Tie::File;‏ 
tie @array,'Tie::File',"/home/spawn/aa.pl";‏ 
print $array[2],"\n";‏ 
الان اذا لو تم تنفيذ هذا المقطع البرمجي أدناه فان الناتج من عملية التنفيذ هي ان يتم طباعة السطر التالث من 


Figure (40) 
Line Of File 


How To Assign 


من الممكن ان يتم التعامل مع الملف على انه متغير من نوع مصفوفة اذن في هذه الحالة من الممكن ان يتم اضافة 
أسطر جديدة الى الملف وتغيير القيم الخاصة بالاسطر وذلك ايضا على اعتبار انها عناصر خاصة بالمصفوفة 
ومن الممكن ان يتم تمثيل كل من عملية سطر جديد الى الملف 
والتغيير على قيمة موجودة مسبقا على الملف من خلال المقطع البرمجي ألاتي الذي يوضح كل من الطريقتين 
*Code (47)‏ 
use Tie::File;‏ 
tie @array,'Tie::File',"/home/spawn/aa.pl";‏ 
Şarray[2] = "Storm =>C Fr34k";‏ 
Şarray[4] = "Snix => Designer";‏ 
print $array[2],"\n";‏ 
print $array[4],"\n";‏ 


أما الان سيتم الاطلاع على محتوى الملف قبل ان يتم تنفيذ المقطع البرمجي أعلاه لكي يكون الفرق واضح على 
محتوى الملف قبل وبعد التنفيذ 


00 = da. PI - KWE hn! 
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1 Spawn. =2Perl programmer 

Z2 Striker, , =2Pythaon progr ammer 
3 Storm. =2 programmer 

4 Dj. 


=2S5hell programmer 


Figure (41) 
B4 Exec 
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اما الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي 


Figure (42) 
Result 


اما الان شكل الملف عندما يتم تنفيذ المقطع البرمجي سوف يكون كألاتي 


Filê Edit View Bookmarks Tools Settings . 
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Spawn. =2Perl progr ammer 
atTIkEFr, =z*Python progr ammer 
storm, =2 Fr34k 
Dj. =a hell programmer 
SniX , =< i 


Figure (43) 
After Updating 


حم ټم ټین ظط ا 


IO::File 


هذا الموديل البرمجي ايضا يتعبر من الموديلات البرمجية التي توفر أمكانية التحكم بالملفات اي من قابلية فتح 
الملفات وطباعة محتوياتها والكتابة على الملفات وانشاء الملفات الخ 


How to open 


يكون التمثيل البرمجي العام لها كما يلي من خلال المقطع البرمجي أدناه 
*Code (48)‏ 
use IO::File;‏ 
$fh = new IO::File;‏ 
if (Sfh->open(/home/spawn/aa.p1")) {‏ 
print <$fh>;‏ 


والان لو تم تنفيذ المقطع أعلاه فأن الناتج من عملية التنفيذ سوف يكون كألاتي 


PL P3rL Files 
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Figure (44) 
IO Output 


Write & Creat 


هذه الجزئية من هذا الموديل تقوم بعملين بنفس الوقت حيث تكون الجزئية الاولى هي الجزئية المسؤولة عن الكتابة 
على الملفات ويكون التمثيل البرمجي لها كما يلي في المقطع ألاتي 
*Code (49)‏ 
use IO::File;‏ 
$fh = new IO::File ">/home/spawn/ss.pl";‏ 
if (defined $fh) {‏ 
print $fh "We are perl programmers\n";‏ 


} 


الان لو يتم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية تنفيذ هذا الكود سوف تكون كألاتي 
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Figure (45) 

IO::File Write 
كما سبق الذكر هذه الجزئية هي الجزئية التي تكون مسؤولة عن الكتابة على الملفات اذا كانت الملفات مسبقا‎ 
موجودة اي اذا كانت الملفات معرفة على النظام‎ 
الجزئية الثانية هي تتضمن الجزئية الاولى وهي الكتابة على الملفات ولكن اذا لم تكن الملفات موجودة على النظام‎ 
هذه العملية تتم كما في الطريقة السابقة بدون اي تغيير فهذا يعني ان هذا الموديل له القدرة على انشاء الملفات التي‎ 
لم تكون موجودة على النظام من قبل و العملية تمثل كما يلي‎ 


1 P3rL Files 
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*Code (50) 
use IO::File; 


$fh = new IO::File ">/home/spawn/Perl.pl"; 
if (defined $fh) { 


print $fh "We are perl programmers\n"; 
j 


الان اذا تم تنفيذ المقطع البرمجي أعلاه فان الناتج من هذه العملية هو تكوين ملف يحمل الاسم |م.۲1٥‏ في مجلد 
المستخدم w۸‏ مء ویوضح ال ٥)46(‏ ںو ناتج التنفیذ 


Location: [E /home/spawn‏ ک 
e PEN pI -RWNTitE‏ 
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Figure (46) 
IO::File Write & Create 


Parl RegExp OT 
Regular Expression (RegExp) 


ا ا ا ا في لغة ة البيرل ر التعابير المنتظمة من اهم القواصن والامكانيات 


علي التعابير القياسية ولكن كل من التعبير الاو و التعبير الثاني لهم تفس الدلالة وتعتبر نليه التعايير القياسية ل 
اوسع وأكبر التقنيات في لغة البيرل لما تحتويه من خيارات و اوامر عدة تؤدي عدد من الوظائف 

تكون الفكرة العامة للتعابير القياسية هي القيام بعملية مطابقة بين السلسلة النصية والتعبير القياسي واذا تم حصول 
التطابق سوف يتم تنفيذ شرط معين واذا لم يحصل تطابق سوف يتم تنفيذ شرط أخر 

التعبير القياسي هو كل ما حصر بين علامات ال 


# RegExp 


Figure (1)‏ 
RegExp‏ 
يكون التمثيل البرمجي العام للتعابير القياسية 
في لغة البيرل كما يلي من خلال المقطع البرمجي أدناه و الذي يعبر عن التعابير القياسية بابسط صورة 
*Code([)‏ 
$a="perl programming";‏ 
$b="perl ";‏ 
if ($a =~ /$b/){‏ 
print "Ok match\n‏ 
1 


else { 
print "Sorry ,No match"; 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل ألاتي 


Figure (2) 
Result 

وتوجد طريقة اخرى يتم من خلالها تمثيل التعابير القياسية وهذه الطريقة الجديدة سوف تعطي نتيجة مشابهة للنتيجة 

التي يتم الحصول عليها من التمثيل السابق وهذه الطريقة تكون كما يلي من خلال المقطع البرمجي ألاتي 
*Code(2)‏ 
$_="perl programming";‏ 
if /perl/){‏ 
print "Ok,Match\n‏ 
1 


else { 
print "No,Match\n 


RegExp 


والان اذا تم تنفيذ الكود أعلاه فأن الناتج من عملية التنفيذ هو الناتج ذاته من المقطع البرمجي الذي تم تنفيذه في 
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السابق 
Ok match‏ 
Figure (2)‏ 
Result‏ 
الان اذا تم عمل سع۷1 ع0۷على كل من المقطعين الاول و الثاني فان القيمة التي تكون مسندة الى المتغير 
*Code(3)‏ 
$a="perl programming";‏ 
*Code(4)‏ 
$_="perl programming";‏ 


هي عبارة عن سلاسل نصية عادية ووم1٣)S‏ 1ء۲ عامر"51اما عن الكلمات التي تكون محصورة بين علامات 
*Code(5)‏ 
/AAA/‏ 
هي التعابير القياسية و التي تتم بها على اثرها المطابقة حيث من خلالها يتم معرفة هل يوجد حالة تطابق في 


No White Space Allowed 


اثناء علميات المقارنة في لغة البيرل على المبرمج ان يكون حذرا من وجود ال وععهمك ع¡ في البرنامج 
لانه في هذه الحالة سوف لن تتم عملية المقارنة 

*Code(6) 
Şa="perl"; 
$b="perl "; 
if ($a =~ /$b/){ 
print "Ok Match\n"; 
else { 
print "Bad No Match\n"; 


الان لو تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي من في الشكل التوضيحي 


Figure (3) 
WhiteSpaces 


RegExp 


يلاحظ على هذا البرنامج انه يحتوي على متغيرين وكل من هذين المتغيرين هم متغيرات متشابهة ومتطابقة الى حد 
كبير ولكن في المتغير الثاني يوجد اختلاف هو وجود فراغ وهذا الفراغ هو فراغ غير موجود في المتغير الاول 
عند هذه النقطة اصبح الفرق موجود في البرنامج وعند التنفيذ سوف يحدث اختلاف في التطابق 

The letter Case 
في هذا المرحلة من عمليات التطابق باستخدام التعابير القياسية في لغة البيرل على المبرمج ان يكون قادرا على ان‎ 
يكون على اطلاع بأنه حالة الاحرف في لغة البيرل لها تأثير على مسار البرنامج وهذا يعني ان الاحرف التي‎ 
تكون في التشكيل الاعلى تختلف عن حالة الاحرف التي تكون في حالة التشكيل الادني والمقطع البرمجي ألاتي‎ 
يوضح الطريقة العامة لتمثيل هذه الحالة‎ 
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*Code(/) 
Şa="perl"; 
pb="PERL"; 

if ($a =~ /$b/){ 
print "Ok Match\n 


else {‏ 
print "Bad No Match\n‏ 
j‏ 
الان عندما يتم تنفيذ هذا البرنامج فأن النتيجة التي يتم الحصول عليها هي هي نتيجة تشير على عدم حصول تطابق 
بين المتغير و التعبير القياسي وذلك بسبب التخالف في حالة الاحرف وهذا يعني انه لغة البيرل لاتعمل على 
لطا نحا اكت كرا ر الح احرف السر ورف ا هذا البرنامج هو كألاتي 


Figure (4) 
No LetterCase 


No NewLine 

في التعابير القياسية في لغة البيرل عندما یکون المبرمج بصدد القيام بعملية مطابقة بين شيئين ففي هذه الحالة يجب 
اخد ال Sue "٤٤‏ ءءء في نظر الاعتبار اي انه عملية المطابقة لن تتم في حالة وجود رموز الهروب 

ويوضح المقطع البرمجي ألاتي ي المقصود بوضع رموز الهروب في عمليات المطابقة 

*Code(8) 

Şa="perl"; 

$b="PERL\n 

if ($a =~ u 

print "Ok Match\n 


else { 
print "Bad No Match\n"; 


} 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل أدناه 


RegExp 
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Figure (5) 
No NewLine 
The Numbers 


من الممكن ايضا ان تتم عمليات المقارنة بين الارقام في لغة البيرل و المقطع البرمجي ألاتي يوضح الطريقة 
العامة التي يتم بها التمثيل البرمجي العام لبرمجة الارقام في التعبير القياسية 
*Code(9)‏ 
$a="123456789";‏ 
I LS‏ 
if ($a =~ /$b/) {‏ 
print "Ok";‏ 
else {‏ 
print "Bad";‏ 
من كل من الناحية النظرية و الناحية البرمجية هذا الاسلوب الخاص لتمثيل الارقام في التعابير القياسية هو اسلوب 
مشابه جدا لاسلوب تمثيل الاحرف وان الناتج من عملية تنفيذ المقطع أعلاه تكون كالأتي من خلال الشكل 


Figure (6) 
Numbers 


How To Extra 


التعابير القياسية في لغة البيرل تمكن المستخدم من قابلية التخلي عن استعمال الارقام الكبيرة و الكثيرة في عمليات 
المقارنة لذا فأن البيرل في هذه الحالة توفر للمبرمج )»۴ ۾٣)x٤تعرف‏ هذه الخاصية ڊJl Square Bracket‏ 
ویکون التمقيل البرمجي العام لهذه الخاصية كما يلي من خلال المقطع البرمجي ادناه 


*Code(10) 
pa="845908430580349850934"; 
b= "[0-9[ 

if ($a =~ /$b/) { 

print "Ok"; 

else { 

print "Bad"; 


2 
RegExp 


والان عندما يتم تنفيذ هذا المقطع البرمجي الموجود في الاعلى فأن الناتج من عملية التنفيذ سوف تكون كألاتي من 
خلال التوضيحي آدناه 


Figure(7) 
Extra Feat 
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وهذا يعني ان هذه الطريقة من الممكن ان يتم تنفيذها على كافة الارقام مهما كانت كبيرة وذلك لان السطر أدناه 
*Code(11)‏ 
$b="[0-9]";‏ 
هذا السطر هو عبارة عن سطر شامل لكافة الارقام وبالتالي فأن اي رقم سوف تتم عملية المطابقة معه سوف ينتج 
عن هذه العملية نجاح من عملية المطابقة 


ولکن هذا لايعني ان هذه الخاصية فقط هي خاصية معتمدة على الارقام على العكس حيث من الممكن ان يتم تطبيق 

هذه الخاصية على الحروف ايضا و المقطع البرمجي ألاتي يوضح الطريقة التي يتم بها التمثيل البرمجي العام لهذه 
الخاصية ولکن مع الاحرف 

*Code(12) 

$a="iam perl programmer"; 

$b="[a-z]"; 

if ($a =~ /$b/) { 

print "Ok"; 

else { 

print "Bad"; 


الان لوتم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ التي سيتم الحصول عليها هي نتيجة تشير بالطبع 
الى وجود حالة تطابق كما في الشكل التوضيحي أدناه 


Figure(8) 
Extra Feat Letters 


ولكن هذا المقطع البرمجي الموجود في الاعلى من الممكن ملاحظة فقرة هامة وهي ان جميع الاحرف التي تم 
استخدامها في برمجة هذه الفقرة هي عبرة عن احرف في الحالة الصغيرة ة لذا عندما يتم ادخال حرف في حالة 
كبيرة عندها المطابقة لن تسير على مايرا م كما هو موضح في المقطع البرمجي ألاتي 


Fa 
RegExp 


*Code([3) 

$a="IAM PERL PROGRAMMER"; 

$b="[a-z]"; 

if ($a =~ /$b/) { 

print "Ok"; 

else { 

print "Bad"; 

الان عندما يتم تنفيذ هذا الكود فأن الناتج من هذه العملية هي النتيجة التي تشير على عدم وجود مطابقة في البرنامج 
كما هو موضح في الشكل التوضيحي أدناه 
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Figure (9) 
UpperCase Status 


اذن في هذه الحالة اصبح من اللازم على المبرمج ان يكون شامل لهذا الامر من كافة النواحي لذا سوف يتم توسيع 
المقطع البرمجي أعلاه لكي يكون مقطع اكثر شمولية 

*Code(14) 

$a="IAM PERL PROGRAMMER"; 

Pb="[a-zA-Z]"'; 

if ($a =~ /$b/) { 

print "Ok"; 

1 

else { 

print "Bad"; 


المقطع البرمجي أعلاه اصبحت له القدرة على التعامل مع كافة الاحرف التي تكون بصورة الاحرف في الحالة 
الكبيرة او الاحرف التي في الحالة الصغيرة واذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ سوف 
يكون كما يلي من خلال الشكل التوضيحي أدناه 


Figure(10) 
LetterCase (UC,lc) 


How To Ignore 
كما ذكر مسبقا فان البيرل لا تساوي بين حالات الاحرف الكبيرة والصغيرة ولكن لغة البيرل توفر الحل للتخلص‎ 
من هذه الحالة وذلك باستخدام معرف خاص يفقوم بهذه العملية ويكون تمتيله البرمجي كما يلي من خلال المقطع‎ 
أدناه‎ 


RegExp 


*Code(15) 

Şa="perl"; 

$b="PERL"; 

if ($a =~ /$b/iJ{ 

print "Ok, There is a Match\n"'; 
ر‎ 


else { 
print "No,match\n"; 


} 


In The ShaDow of The BlacK SalnT 


والان اذا تم تنفيذ هذا المقطع البرمجي فأن الناتج الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل 
التالى أدناه 


Figure(11) 
The i Modifier 
اذن يتضح من المقطع البرمجي أعلاه ان المعرف ¡ هو المعرف المسؤول عن تجاهل حالة الاحرف وهكذا فأن‎ 
فأن البيرل تتجاهل حالة الاحرف ولن تفرق بين الاحرف التي تكون في الحالات الكبيرة و الاحرف في الحالات‎ 
الصغيرة‎ 


The s/// 


هذه الدالة تعتبر من الدوال المبنية في لغة البيرل وتدعى بدالة الاستبدال وغالبا ما يتم استخدامها في التعابير 
القياسية ويكون التمتيل البرمجي العام لهذه الدالة كما يلي من خلال المقطع البرمجي أدناه 
*Code(16)‏ 
$_="Tam perl programmer";‏ 
s/Tam/We are/;‏ 
print $_;‏ 
يوضح المقطع البرمجي أعلاه الكيفية التي من خلالها تم من خلالها استبدال كلمة بكلمة اخرى و الان اذا تم تنفيذ 
المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الصورة التوضيحية أدناه 


Figure(12) 
Substitute 


The s///9 


في المقطع البرمجي السابق تم استخدام دالة الاستبدال بصورة مفردة ولكن هذه الدالة من الممكن ان يتم اضافة 
بعض الخواص الاضافية عليها لكي تزيد من مرونتها في عمليات الاستبدال ومن المعرفات الهامة التي من الممكن 
ان يتم اضافتها على دالة الاستبدال هو المعرف و وهو يعني 1هطه|ان ويكون التمثيل البرمجي العام لدالة الاستبدال 


RegExp 


*Code(17) 


$_="TIam perl programmer,And perl my Favorite Lang"; 
s/perl/P3rL/g; 
print $_; 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل أدناه 


Figure(13) 
Substitute With gq 


In The ShaDow of The BlacK SalnT 


هذا المعرف كما يلي من خلال المقطع البرمجي أدناه 


ان الفائدة من وضع المعرف و في دالة الاستبدال يكون فالغرض هو عندما يتم استبدال كلمة مكان كلمة اخرى فأن 
هذا الاستبدال يكون على شامل بكلمات اخرى في المقطع البرمجي(16)وردت كلمة ۲1ع بهذه الهيئة مرتين وفي 
دالة الاستبدال تم وضع كلمة P31كبديل‏ لكلمة 1٣٠م‏ الوضع الافتراضي لدالة الاستبدال هو ان تتم عملية الاستبدال 
مرة واحدة فقط حتى وان كان موجود اكثر من كلمة ولكن عندما تم وضع المعرف ى فهذا يعني ان دالة الاستبدال 
سوف تقوم بتبدیل کلمة 1ع بكلمة 7311 بعدد المرات التي وردت بها كلمة بيرل وهذا يعني ان عملية الاستبدال 
سوف تتم مرتين فقط لان كلمة ۲1ءم وردت مرتين فقط ولهذا تمت عملية الاستبدال مرتين 


The s/// With Regexp 


من الممكن ان يتم استخدام دالة الاستبدال مع تقنية التعبير القياسية لانه التعابير القياسية تقوم على مبداً اذا تمت 
المطابقة يتم تنفيذ شرط معين واذا لم تتم المطابقة فشرط اخر سوف يتم تنفيذه وفي هذه الحالة فأن الاسلوب الذي 
سوف يتم أتباعه هو اذا تمت عملية المطابقة فأن الشرط الذي سوف يتم تطبيقه هو القيام بعملية استبدال وهذه 
العملية يتم تمثيلها برمجيا كما يلي من خلال المقطع أدناه 
*Code(18)‏ 
$_="perl programming";‏ 
if /perl/){‏ 
s/perl/PERL/;‏ 
print $_;‏ 


else { 
print "Error"; 


j} 


اما الان اذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الصورة 
الموضحة أدناه 


RegExp 


In The ShaDow of The BlacK SalnT 


Figure(14) 
Substitute With RegExp 


وضح المقطع البرمجي الماضي انه من الممكن ان یتم استعمال دالة الاستبدال مع مفهوم التعابير القياسية وعندما 
تم حصول شرط المطابقة تم تنفيذ شرط دالة الاستبدال اما اذا لم يتم تحقق الشرط عندها سوف يتم طباعة الجملة 


التي تشير الى وجود خطأً في عملية المطابقة 


Anchors ($)‏ 
اغلب البرامج التي تم استخدامها في تقنية التعابير القياسية كان اسلوب تمثيلها البرمجي كما يلي من خلال المقطع 
البرمجي ألاتي 
*Code(19)‏ 
Şa= "perl";‏ 


$b="programming perl"; 
if ($a =~ /$b/){ 
print "OK, There is Match\n 


else {‏ 
print "Bad Match";‏ 
1 
واذا تم تنفيذ هذا المقطع البرمجي فأن الناتج من عملية التنفيذ هو الناتج الذي يشير الى عدم وجود مطابقة بين 
المتغير والتعبير القياسي 
Figure(15)‏ 
RegExp‏ 


يستنتج من المقطع البرمجي أعلاه ان عملية مقارنة كلمة في بداية المتغير الاول مع كلمة في نهاية المتغير الثاني 
هي عملية غير مقبولة في لغة البيرل بالحالات الاعتيادية ولكن من الممكن ان يتم التخلص من هذه المشكلة 
باستعمال خصائص اضافية تمكن وتجعل هذه العملية قابلة للتحقيق وهذه الخصائص الاضافية يطلق عليها اسم ال 
66ء وهي نوعین 


النوع الاول وهو 
*Code(20)‏ 


5 


هذا هو ال مء 4الاول وتكون الوظيفة المسندة الى هذا yaAnchor Jl‏ المقارنة وتكون المقارنة التي یقوم بها 
هي مقارنة في نهاية التعبير القياسي ويوضح الكود البرمجي ألاتي الطريقة التي يتم تمثيل هذه الخاصية برمجيا 


In The ShaDow of The BlacK SalnT 


RegExp 


*Code(21) 

Şa="perl"; 
$b="programming perl"; 
if ($a =~ /$$b/){ 

print "There is Match\n"; 
else { 

print "Bad Match\n"; 
} 


الان لو تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ يكون كما يلي في الشكل التوضيحي أدناه 


Figure(16) 
Anchor 


الاختلاف يكمن في الشكل التالي 


Ba="perl"; 
2b="programming perl"; 
if ($a =~ 4{$Bb/){ 
print "There is Match™ın"; 
1 
else { 
print "Bad Matchîın"; 
Figure (17) 
Position Anchor $ 


يلاحظ من الشكل السايق اته يحتوي على 


تعود الاولى الى ال مء 4الذي يعمل على المقارنة في نهاية السلسة النصية 


*Code(22) 
99 


*Code(23) 

$a="Freak'"'; 
$b="programmingFreak'"; 
if ($a =~ /$$b/){ 

print "There is Match\n"'; 
j 
else { 

print "No Match\n"; 


j 


2 
RegExp 


الان لو تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


التوضيحي أدناه 

Figure(18) 

Anchor $‏ 
يستخلص من الشكل أعلاه ان هذا ال ماع4 من الممكن ان يقوم بعمليات المطابقة حتى لو كانت الكلمات التي 
يتم العمل عليها هي كلمات هي منفصلة بفراغات حيث في هذه الحالة يتم عمل مطابفة جزئية بين السلسلة النصية 
وبين التعبير القياسي 
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Anchor (%‏ 
هذا النوع الثاني من ال ch0sم‏ الذي یتم تکون وظیفته هي المطابقة ولكن بصورة تختلف على الطريقة السابقة 
کن ما ف الا روا و فن ا ا فن ف اا اسا ور اا لري الحا ا 
Anchor‏ هو كما يلي من خلال المقطع البرمجي ألاتي 


*Code(24) 
$a="perlprogramming"; 
$b="perl"; 

if ($a =~ /^$b/){ 

print "Ok.there is match\n"; 
else { 

print "No,Match\n"; 


اما عن المقطع البرمجي أعلاه فأن الناتج من تنفيذ هذا المقطع هو كألاتي في الشكل التوضيحي أدناه 


Figure (19)‏ 
Anchor ^‏ 
هذا المعرف او هذا ال ماع4۸ تكون الوظيفة التي يقوم بها هي المطابقة في بداية السلسلة النصية اي تماما عمله 
من الناحية البرمجة ھو عکس عمل ال مع السابق 


Ba="per lprogr amming" ; 
Bb="perl"; 
if ($a =~ FMBb/}{ 


print "Ok.there is matchın"; 


Else { 
print "No, Match™n"; 
1 


Figure (20) 
Position Anchor ^ 


AE 
RegExp 
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يوضح من الشكل على انه يحتوي على الرموز 
*Code(25)‏ 
A$‏ 
حيث ان الرمز الأول يعود الى مع الذي يعمل على المطابقة في بداية السلسلة النصية 
اما الثاني فهو يعود الى التعبير القياسي طا 
The ()‏ 
في التعابير القياسية المستخدمة في لغة البيرل كانت اسلوب المطابقة بصورة عامة يتم كما يلي من خلال المقطع 
البرمجى أدناه 
+*Code(26) ٤‏ 
$a="Hello World";‏ 
$b="Hello";‏ 


if ($a =~ /$b/){ 
print "Match"; 

else {‏ 
print "No,Match";‏ 
هذا المطقع البرمجي يقوم على مبدأً مطابقة كلمة بتعبير قياسي واذا تم تنفيذ البرنامج فأن الناتج من عملية التنفيذ لا 
بد ان يشير الى وجود تطابق في ما بين التعبير القياسي و السلسلة النصية و السبب في هذا ان الكلمة الاولى من 
السلسة النصية تطابق الكلمة الاولى من التعبير القياسي 


اما اذا كان المبرمج يرغب في ان تكون السلسة النصية التي يتعامل معها ان تطابق اي تعبير قياسي فأن لغة البيرل 
قد وفرت أمكانية تحقيق هذا وذلك من خلال(.) 

ويوضح المقطع البرمجي ألاتي الطريقة التي يتم تمثيل هذه التقنية برمجيا 

*Code27) 

$a="We ArE PErl ProgrammErs"; 

Pb="."; 

if ($a =~ /$b/){ 

print "Match"; 

else { 

print "Bad";*Code(27) 


الان اذا تم تنفيذ المطقع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل 
التوضيحي أدناه 


Fa 
RegExp 
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Figure(21) 
The . 


يلاحظ على المقطع البرمجي أعلاه ان تقنية الدوت تعمل على مطابقة السلسلة النصية مهما كانت حالة الاحرف 
فيها اي سواء كانت الاحرف كبيرة ام صغيرة فأن عملية المطابقة تتم اي ان هذه التقنية تعمل على مطابقة السلسة 
النصية مع التعبير القياسي دائما بعض النظر عن ماهية السلسة النصية فأذا تعمل استعمال تقنية الدوت فأن 
المطابقة سوف تتم الا في حالة واحدة وهذه الحالة هي ممتلة برمجيا كما يلي من خلال المقطع البرمجي ألاتي 
*Code(28)‏ 
$_="\n";‏ 


if CON 
print "Match"; 


j 

else {‏ 
print "No,Match";‏ 
j‏ 
اذن تقنية الدوت تكون قادرة على مطابقة كافة السلاسل النصية مع التعبير القياسي الا في حالة كون السلسة النصية 
هي ال | ففي هذه الحالة تفشل عملية المقارنة ويكون الناتج من تنفيذ البرنامج هو كما يلي من خلال الشكل 
التوضيحي أدناه 


Figure (22) 
Dot Failure 


ولكن على ال رغم فن وجود هذه المشكلة في هذه التقنية ولكن لغة البيرل ايضا قد وفرت الحل لكي يتم التخلص من 
هذه المشكلة وجعل تقنية الدوت تقنية قادرة على مطابقة كافة السلاسل النصية مع التعبير القياسي النقطي ويتم 
تمثيل الطريقة التي التخلص منها مشكلة ال عماس كما يلي من خلال المطقع البرمجي أدناه 

*Code(29) 
$_="\n"; 


if /(J/5J{ 
print "Match"; 
ر‎ 
else { 

print "No,Match"'; 
j} 


والن لو تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 
التوضيحي أدناه 


FÎ 
RegExp 
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Figure(23) 
NewLine problem 
The x Modifiers 
في لغة البيرل اذا تم تنفيذ مقطع برمجي كالمقطع البرمجي أدناه‎ 
*Code(30) 


$a ="perlprogrammer"; 
$b="perl programmer"; 

if ($a =~ /$b/){ 

print "Ok, There is Match"; 
else { 

print "No,Match\n"; 
j 


الان اذا تم تنفيذ البرنامج السابق فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل التوضيحي أدناه 


Figure(24) 
WhiteSpace 
اذن الناتج هو عدم وجود تطابق في البرنامج والسبب في عدم وجود تطابق في البرنامج يكون بسبب‎ 


a=" pe rogrammer" ; 
E ee 
Figure(25) 
Cause 

يوضح الشكل السابق أعلاه سبب الفشل في التطابق لانه في السطر الاول من الشكل السابق يوجد كل من الحرفين 
م] بصورة ملتصقة ولا يوجد اي فراغ بين هذين الحرفين بينما في السطر الثاني يوجد فراغ بين الحرفين م] 
وهذا الفراغ كان السبب في عدم حصول تطابق في البرنامج 
ولكن لغة البيرل من خلال التعابير القياسية توفر أمكانية التعامل مع هذه المشكلة وكيفية التخلص منها لذا فعند هذه 
الحالات يجب على المبرمج ان يفكر بحل بديل وهذا الحل البديل يكمن في المعرف × 
ويكون التمثيل البرمجي العام لهذا المعرف كما يلي من خلال المقطع البرمجي ألاتي 


نھ 


¥ RegExp 
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*Code(31) 
$a="perlprogrammer"; 
$b="perl programmer"; 

if ($a =~ /$b/x){ 

print "Ok, There is Match"; 
else { 

print "No,Match\n 


الان اذا تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ تكون كألاتي من خلال الشكل التوضيحي ألاتي 


Figure(26) 

x Modifier 
التي من خلالها‎ white space ادن و المعرف × هي انه يقوم بعملية الغاء المسافة البيضاء او ما يعرف بال‎ 
الموجودة ف فى التعبير القياسي وعندما تم استعمالها تم الغاء المسافة البيضاء وحصلت المطابقة بین التعبير القياسي و‎ 
الا ال ة‎ 


Using Character Class 


1-Custom 


في لغة البيرل عندما يتم التعامل مع مقطع برمجي يشبه المقطع البرمجي أدناه 
*Code(32)‏ 
$a="cat";‏ 
$b="cat";‏ 
if ($a =~ /$b/){‏ 
print "Ok, There is Match";‏ 
1 
else {‏ 
print "No ,Match"';‏ 


فأن الناتج من عملية التنفيذ أدناه سوف تكون د بلا شك كما يلي من الشكل التوضيحي المدرج 


Figure (27) 
Character Class 


لا بد من ان تتم المطابقة في المقطع السابق وذلك بسبب انه كل من التعبير القياسي و السلسلة النصية متطابقين 
تماما 


Fa 
RegExp 


ولكن اذا كان المبرمج يرغب بأن يقوم بتوسيع رقعة المقارنة التي يقوم بها من خلال لغة البيرل والتعابير القياسية 
فهذا ممكن من خلال استعJn character class J|‏ 

ويتم تعريف هذه التقنية على أنها مجموعة من الاحرف او الرموز التي يتم استعمالها لكي يتم الحصول على عدد 
من التطابقات المحتملة بدلا عن تطابق واحد وعادة يتم وضه ال character class‏ في داخل اقواس مربعة 

[] يكون التمثيل البرمجي لهذه التقنية كما يلي من خلال المقطع البرمجي أدناه 
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*Code(33) 

pa="bat"; 

$b="[crhtJat"; 

if ($a =~ /$b/){ 

print "Ok, There is Match"; 


else { 
print "No ,Match"; 
j} 


الان اذا تم تنفيذ | البرمجي السابق فأن الناتج من تنفيذه سوف يكون كما يلي من خلال الشكل التوضيحي آدنا 


Figure (28)‏ 
Character class using‏ 
هذه الطريقة التي یتم استخدام ال Character class‏ بها في لغة البيرل واذا القيت نظرة على المطقع البرمجي 
السابق فيلاحظ ان التعبير القياسي هو كان ال كماع ٣ع) ٣»‏ »۸ء والسلسلة النصية التي تم استخدامها كانت عبارة 
عن كلمة )هط اذن في هذه النقطة يجب ملاحظة أمر ما هو عندما يتم استخدام ال sئهاc charcater‏ فان الاحرف 
التي تكون محصورة في داخل الاقواس جميعها تكون قابلة للمطابقة والكلمات التي من الممكن ان يتم استخراجها 
من المقطع البرمجي أعلاه لكي تكون قابلة للمطابقة ايضا هي 


1- bat 

2- cat 

3- rat 

4- hat 

*Code(34) 

$a="cat"; 

$b="[crbtJat"; 

if ($a =~ /$b/){ 

print "Ok, There is Match"; 


else { 
print "No ,Match"'; 


RegExp 
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وايضا عندما يتم تنفيذ هذا البرنامج فأن ناتج التنفيذ سوف يشير الى وجود تطابق ايضا 


Figure(29) 
Character class using 
BackSlash Using CharacterClass 
كما ذكر سابقا ان ال sئهاع ٣٥٣۸ء يتم استخدامها في التعابيرالقياسية وذلك من أجل ان يتم توسيع رقعة‎ 
المطابقة في التعابير القياسية وان تقنية ال كوهاء »٣۸ء تحتوي على عدد من التقنيات التي تنظم وتحدد عمل‎ 
هذه التقنية السالفة الذكر المقطع البرمجي أدناه عندما يتم تنفيذه فأن الناتج من عملية تنفيذه سوف تكون الحصول‎ 
على المطابقة‎ 
*Code(35) 
$a="far"; 
Pb="[cf]ar"; 
if ($a =~ /$b/){ 
print "Ok,There is Match"; 
j} 


else { 
print "No ,Match"'; 
j} 


وناتج تنفيذ هذا المقطع البرمجي أعلاه هو الشكل التالي الذي يشير الى حصول حالة تطابق في البرنامج 


Figure(30) 
Character class using 
B‌ack5ا۾ئط يلاحظ في بعض تقنيات ال ئها ٣ععه اهمع التي يتم استخدامها في التعابير القياسية وجود الرمز‎ 
وأن الغرض من استعمال ال باك سلاش هو حماية المتغير يكون التمثيل البرمجي لهذه التقنية الفرعية كما يلي من‎ 
خلال المقطع البرمجي أدناه‎ 

*Code(36) 

Şa="bcr"; 

$b="[\$a Jat"; 

if (aat =~ /$b/){ 
print "There is Match\n"; 
م‎ 


else { 
print "No,Match\n" 


} 
عندما يتم تنفيذ المقطع البرمجي ألاتي فأن الناتج من عملية التنفيذ ستكون كما يلي من خلال الشكل التو ضيح أدناه 


Figure(31) 
BackSlash 


2 
Î RegExp 


ان الغرض من استخدام الباك سلاش هو حماية المتغير اي المقصود بهذه العبارة انه تم اعتماد معيار جديد في 
عمليات المقارنة لل وsئهاآع Character‏ عندما یتم استخدام الباك سلاش والمعيار الذي يتم استخدامه في هذه الحالة 
ھر که بت رر ے تی کت اارباسات 

ان ما يحدث للكود البرمجي عندما یتم استخدام الباك سلاش في البرنامج توجزه الاشكال التوضيحية التالية 
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$a='| 6c!" ; تلغى‎ 

$b=" [\$a]at"; 

if (aat =~ /$b/){ 

print "There is Match\n"; 


3 
else { 
print "No,Matchx\n" 
} 
Figure(32) 
BackSlash Effect (1) 


يوضح الشكل التوضيحي المرقم 32 انه عندما يتم استخدام الرمز باك سلاش فأن الاحرف التي تم اسنادها الى 
المتغير لن تصبح ذات فائدة بعد الان ولن تعير البيرل اي أهمية لها وذلك لسبب وجود الباك سلاش 


_ 
$b=" [ $a] at 

if (aat =~ /$b/){ 

print "There 1s Match\n"; 


else { 


print "No, Match\n" 
1 


Figure(33) 
Matching Possibilities 
اذن بعد ان تم الغاء احتمالات التطابق الخاصة بهذا البرنامج بعد ان تم استعمال الباك سلاش كان لابد من ايجاد‎ 
بديل لها وهذا البديل هو يمكن في الاحتمالات الموضحة بالشكل التوضيحي أعلاه اذ تم اعتماد اسم المتغير ذاته‎ 


Fa 
RegExp 


الذي تم استعماله لکي یکون معیار التطابق الذي يتم العمل علی اساسه والمعايير التي تم اعتمادها في المقاطع ال ۾ 
character‏ السابقة لن يتم اعتمادها في کل کود يحتوي على علامة الباك سلاش بل يتم اعتماد الطريقة التي 
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class 

الموضحة أعلاه 

والمعايير التي تحقق التطابق في المقطع السابق هي فقط معيارين هما 
1-"$at'‏ 
2-aat‏ 


» 


تجدر الاشارة الى نقطة هامة الا وهي انه يجب ان يتم حصر الخيار الأول بالعلاهة؛ ' وذلك لانه اذا لم يتم خضر 
هذا الخيار بهذه العلامات فان البيرل سوف تعامل هذا الخيار كما لو انه متغير فعلي لذا یجب استعمال هذه 
العلامات کي يتم تجنب هذا النوع من الاخطاءِ 
هناك بعض المقاطع البرمجي التي تحتوي على ا5عم8 عاطuم(‏ وهذا النوع من المقاطع البرمجية التي 
تحتوي Double BackSlash JE‏ فان الاسلوب المعتمد في المطابقة بها هو الاسلوب القديم ويكون التمثيل 
هذه التقنية كما يلي من خلال المقطع ا 
*Code(37)‏ 
$a="bcr";‏ 
$b="[\\$aJat";‏ 
if (cat' =~ /$b/){‏ 
print "There is Match\n‏ 
٣‏ 


else { 
print "No,Match\n 


j 


في هذا المقطع البرمجي تم اعتماد الاسلوب القديم في عمليات المطابقة والاحتمالات التطابق في هذا البرنامج هي 
الاحتمالات ألاتية 
bat‏ -1 
cat‏ -2 
rat‏ -3 
واذ تم تنفيذ المقطع البرمجي أعلاه فأن ناتج التنفيذ هو الناتج ألاتي 


Figure(34) 
Double BackSlash 


ومن الممكن ان يقوم المبرمج بتوسيع رقعة المقارنة التي يعمل عليها في تقنية ال ئئهاء ياه ويتم ذلك 
عن طریق استخدام Anchors J|‏ 
*Code(38)‏ 
$ 
*Code(39)‏ 
A۸‏ 


۴ 
RegExp 


In The ShaDow of The BlacK SalnT 


بنفس الطريقة التي تم التطرق اليها سابقا 


Fa 
RegExp 


Using Character Class 
2-classic 
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يتضمن الشق الثاني من تقنية sئيا€‏ ٣ءعه‏ هط العديد من المعرفات التي التي من شأنها ان تعمل على تسهيل 
ال 
عمليات المقارنة التي تتم من قبل البرمج وهذا النوع من ال sئها٤‏ ٣عاعهاهC۸‏ يحتوي على عدد من المعرفات 
والمعرف الارل هو 

1-\w 


المعرف البرمجي أعلاه يقوم بوظيفة هامة من شأنها ان تسهل بالكثير من عمليات المقارنة التي تتم في تفنية 
التعابير القياسية هذا المعرف يقوم بمطابقة جميع السلاسل النصية المعطاة له مهما كان نوع هذه السلاسل النصية 
يكون التمثيل البرمجي لهذا المعرف كما يلي من خلال المقطع البرمجي أدناه 

*Code(40) 
$_="We Are Perl Programmer"; 


if O\w7){ 
print "There Is Match"; 


j} 
else { 
print "No match Found"; 


j 
الان اذا تم تنفيذ البرنامج فأن الناتج من عملية تنفيذ البرنامج سوف تكون كما يلي من خلال الشكل التوضيحي أدناه‎ 


Figure(35) 
ع‎ lw ع ع‎ 
وضح المقطع البرمجي أعلاه أنه المعرف سا هو معرف مسؤول دأئما عن مطابقة السلاسل النصية مهما كانت‎ 
حالة الاحرف المستخدمة في البرنامج فهذا المعرف يعمل على مطابقة الاحرف الكبيرة و الصغيرة فهي سيان لهذا‎ 
المعرف‎ 
وهذا المعرف هو مختصر لكلمة ١١0س ولهذا فهو يطابق جميع الاحرف والكلمات التي يتم استخدامها في البرنامج‎ 


2 
RegExp 


2- 1d 
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هذا المعرف الثاني من المعرفات التي تحتويها تقنية ال sئها€‏ ٣ءاءه‏ اه٤‏ وهذا المعرف يقوم بوظيفة مطابقة 
الارقام حيث انه يقوم بمطابقة الارقام المعطاة في البرنامج مهما كانت فهو كفيل بتحقيق المطابقة ويكون التمثيل 
الرفي ا لمرن كا ت من ال الع الم ا 
*Code(41)‏ 
;"123456789"=_$ 
if O\d/){‏ 
print "There Is Match";‏ 


else { 
print "No match Found"; 


} 


الان اذا تم تنفيذ البرنامج فأن الناتج من تنفيذ البرنامج سوف يكون كما يلي من خلال الشكل التوضيحي أدناه 


Figure(36) 
la 
وضح المقطع البرمجي أعلاه ان المعرف الذي يحمل الاسم | يقوم بمطابقة الارقام التي تعطى له ويتعامل مع هذه‎ 
| الارقام وعندها يتم الحصول على التطابق من البرنامج‎ 
تجدر الاشارة الى أن اسم هذا المعرف مشتق من كلمة )1و1([والتي تعني رقم او علد رياضي‎ 


2 
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المعرف الاخير ضمن هذه الفئة من تقنية ال sئها٤‏ ٣ء‏ ي٣٠‏ يقوم بوظيفة لا تقارن بأهمية الوظائف التي تقوم 
بها المعرفات السابقة ويكون التمثيل البرمجي الخاص بهذا المعرف كما يلي من خلال المقطع البرمجي أدناه 

*Code(42) 

$_="\t \n"; 

if O\s/){ 

print "There Is Match"; 


else { 
print "No match Found"; 


j 
لمقطع البرمجي أدناه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل التوضيحي‎ ١ ألان أذا تم تنفيذ‎ 


أدناه 
Figure(37)‏ 
5 
الوظيفة البرمجية التي يقوم بها هذا المعرف هي أنه يقوم بمطابقة الفراغات والمسافات البيضاء التي تعطى له في 
المقطع البرمجي تجدر الاشارة الى ان المعرف ءإهو أختصارا لكلمة ءء»مءع)۷1والتي تعني فراغ او مسافة 
بیضا 
2 ج 


E 


RegExp‏ ”ا 
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Character Class 
3- Negation 


يتضمن الشق الثالث و الاخير من هذه التقنية مبدأً او اسلوب الانكار الذي يعمل تماما بأسلوب معاكس للتقنية 
السابقة وهذا الشق يتضمن ايضا 3 أنواع من المعرفات التي تعمل كما يلي 
\W‏ -1 
أن المعرف الذي كان يحمل الاسم «| كان له وظيفة محددة وهي أن يعمل على مطابقة الاحرف و السلاسل النصية 
التي تعطى له في البرنامج ويقوم بمطابقتها اما هذا المعرف فهو تماما يعمل على عكس ما كان يفعل المعرف سا 
حيث أن هذا المعرف لا يعمل على مطابقة الاحرف و السلاسل النصية يكون التمثيل البرمجى الخاص به بنفس 
اسلوب وطريقة التمثيل البرمجي الخاص بالمعرفات السابقة ۰ 
*Code(43)‏ 
$_="Perlprogramming";‏ 
if (W7)‏ 
print "There Is Match";‏ 
else {‏ 
print "No match Found";‏ 


j} 


وناتج تنفيذ المقطع البرمجي أعلاه هي تكون كما يلي من خلال الشكل التوضيحي ألاتي 


Figure(38) 
IW 
يلاحظ على هذا المعرف انه لا يمتلك القدرة على التعامل مع الحروف و السلاسل النصية لذا ان صادف وان‎ 
تعامل معها فأن النتيجة التي سوف يحصل عليها المبرمج هي عدم حصول التطابق ولكن له القدرة على التعامل مع‎ 
الفراغات والمساحات البيضاء‎ 
*Code(44) 


۴# ê 
9, 


کو 
if AW7){‏ 
print "There Is Match";‏ 
else {‏ 

print "No match Found"; 


j 


يوضح المقطع البرمجي الموجود في الاعلى ان لهذا المعرف القدرة على التعامل مع الفراغات و المساحات 
ا 


Figure(39) 
\W 


28 
RegExp 


2-D0 
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المعرف الذي يحمل الاسم | كانت له وظيفة محددة وهذه الوظيفة التي يقوم بها هي مقارنة الارقام حیث ان 
الارقام التي يتم مطابقتها مع هذا المعرف يتم الحصول مباشرة على التطابق أما المعرف أعلاه ([| فهو يعمل عكس 
المعرف 4| الذي اذا تمت مطابقته مع الارقام فأن الناتج من عملية التطابق سوف لن يشير الى حدوث تطابق 
ويكون التمثيل البرمجي الخاص بهذا المعرف كما يلي من خلال المقطع البرمجي ألاتي 
*Code(45)‏ 
;"123456789"=_$ 
if AD/){‏ 
print "There is Match";‏ 
else {‏ 
print "No Match Found";‏ 


الان اذا تم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


Figure(40) 
ID 

ولكن هذا المعرف اذا تمت معاملته مع سلسلة نصية او حروف فأن التمتيل البرمجي لهذه العملية تكون كما يلي من 

خلال المقطع البرمجي أدناه 
*Code(46)‏ 
$_="Perl Programming";‏ 
if OAD/){‏ 
print "There is Match";‏ 
else {‏ 
print "No Match Found";‏ 
1 


ناتج تنفيذ المقطع البرمجي أعلاه يكون كما يلي من خل الشكل التالي الذي يشير ألى حصول التطابق في البرنامج 
وعلى قدرة تعامل هذا المعرف مع المعطيات مالم تكون معطيات رقمية او أعداد 


Figure(41) 
\D 
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هذا المعرف هو المعرف الاخير في هذه الفئة و المعرف الاخير في عموم تقنية ال ssئا€ Character‏ وھذا 
المعرف هو كباقي المعرفات السابقة الذكر حيث أن هذا o TT‏ 
المساحات البيضاء واذا تمت معاملته بها فأن نتيجة تتفيذ البرنامج ڌ تشر آل عدم حصرل الان ورن مقا 


*Code(47) 

$ =n "; 

if (AS) 

print "There is Match"; 


} 


else { 
print "No Match Found"; 
1 


وناتج تنفيذ هذا البرنامج تكون هي كألاتي من خلال الشكل التو ضيح الات 


Figure(42) 
5 


ومن المفكن أن بت ومساملة هذا الفعرف بالسااسل اللصية والمعرفات الرقمية كما بلي من خلال الفط الر جى 


الاتي 
*Code(48)‏ 
$_="Perl Programming";‏ 
if AS)‏ 
print "There is Match";‏ 
else {‏ 
print "No Match Found";‏ 
1 


وعندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ تشير بصورة قطعية الى حصول التطابق لان 
هذا المعرف له القدرة البرمجية على التعامل مع هذه المعطيات 


Figure(43) 
5ا‎ 
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يوجز الجدول ألاتي جميع المعرفات التي تحتويها تقنية Character Class JI‏ 


المعرف 
\W‏ 


\d 


\s 


\W 


\D 


\S 


الوظيفة 


الخروت ى السلال اة 
المعطيات اذا كانت عبارة عن 
ارقام رياضية 

هذا المعرف الوظيفة البرمجية 
المسندة اليه هي مطابقة الفراغات 
والمساحات البيضاء اي ما يعرف 
White space JI‏ 

يمثلك هذا المعرف القدذرة على 
البيضاء 


يمتلك هذا المعرف القدرة على 
السلاسل النصية وكذلك يتملك 
ااا کے ل 
مخ المساحات القارغةو 
الفراغات 

يمتلك هذا المعرف القدرة علی 
التغامل هع الارقام و السلاسل 
ا 


NonWord 


NonDigit 


NonWhite 
Space 


التعارض 

لايتوافق مع عء2مء عاط أو الفراغات البيضاء 
ال 

هذا المعرف لا يتوافق مع السلاسل النصية و 
الخروف ر كما لست كه القترة على لحمل مع 
الفراغات وJl white spaces‏ 

ل ك الحصول عى حا تطاق ادات اة 
هذا المعرف مع السلاسل النصية او مع الارقام 


لايمتلك القدرة والامكانية على التعامل مع 
السلاعل النضبة و الروف 


لايمتلك هذا المعرف القدرة على التعامل مع 
المعطيات الرقمية او الارقام التي تعطى له في 
البرنامج 


لايمتلك هذا المعرف القدرة على التعامل مع 
المساحات البيضاء و الفراغات في البرنامج 


2 
RegExp 
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Positions 
هي‎ Anchors سبق وان تم التطرق الى ال وم۸ 4الخاصة بعمليات التطابق وكانت هذه ال‎ 
*Code(49) 
۸ 
هذا ال مط" مسؤول عن عمليات المطابقة في بداية السلسلة النصية‎ 
*Code(50) 


أما عن هذا ال هاعم فهو يكون مسؤول عن عمليات التطابق في نهاية السلاسل النصية اي كل من هذين ال 

6 يعمل أحدهما عكس الاخر 

ولکن على الرغم من ان لغة البيرل وفرت ھذہ ال ۸٥0٣5‏ ولكن اضافة لها قد وفرت ايضا عدد من المعرفات 

التي تقوم بنفس المهمة التي تقوم بها ال ماع4 وهذه المعرفات هي 

*Code(51) 
A 


هذا المعرف هو مشابه لل gl Anchor‏ يحمل السمة )/( 
ويكون التمثيل البرمجي لهذا المعرف كما يلي من خلال المقطع البرمجي أدناه 
*Code(52)‏ 
$_="perlprogramming";‏ 
if (\Aperl/){‏ 
print "There is Match";‏ 


else { 
print "No match Found"; 


j} 


الان أذا تم تنفيذ المقطع البرمجي أعلاه فأن النتج من عملية التنفيذ ستكون كما يلي من خلال الشكل التوضيحي 
ادناه 


Figure(44) 


A 
يوضح المقطع البرمجي أعلاه أن المعرف الذي يحمل الاسم ۸| هو عبارة عن معرف يقوم بعمليات المقارنة التي‎ 
الخاصة ببداية السلسلة النصية وهو عادة قليل الاستخدام وذلك لأن اغلب مبرمجي البيرل يميلون الى استخدام ال‎ 
6ع بدلا عن هذه المعرفات وایضا لان ال ۸0۲5ع" 4هي اكثر سهولة وتساة في الاستخدام‎ 


EE 
RegExp 


The \z 
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المعرف | هو عبارة عن معرف يقوم بعمليات المطابقة في نهاية السلاسل النصية ويكون التمثيل البرمجي لهذا 


المعرف كما يلي من خلال المقطع البرمجي أدناه 
*Code(53)‏ 
$_="perlprogramming";‏ 
if /(programming\z/){‏ 
print "There is Match";‏ 
else {‏ 
print "No match Found";‏ 


j} 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف تكون كما يلي من خلال الشكل 


التوضيحي ألاتي 
Figure(45)‏ 
\z‏ 
The \b and \B‏ 
1-b‏ 


هذين المعرفين هم مختصر لكلمة رهل" uهطوالتي‏ تعني حدود ويكون المعرف ط| أعلاه يعمل على مبدأً مطابقة 
كألاتي «إوالتي تمثل الحرف او الرمز و ۷| والتي يتم في هذه الحالة يتم أعتبارها نهاية الجملة او نهاية السلسلة 


النصية ويكون التمثيل البرمجي العام لهذا المعرف هو كما يلي من خلال المقطع البرمجي أدناه 
*Code(54)‏ 


$_="perlprogramming"; 
if /(programming\b/){ 
print "There is Match"; 
1 
else { 

print "No match Found"; 


} 


الان عندما يتمتنفيذ هذا البرنامج فأن الناتج من عملية التنفيذ سوف تشير الى حدوث التطابق كما يلي من خلال 


الكل الوضيحي ادنا 


Figure(46) 
\b 
بألقاء نظرة على المقطع البرمجي أعلاه عندها من الممكن ان يتم ملاحظة ما يلي‎ 


F۴ 
RegExp 
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$_="per programming! ; 
if (programming ™b# } { 
print "There is Match"; 


1 


else {‏ 
print "No match Found" ;‏ 
Figure(47)‏ 
\b‏ 
يوجز الشكل أعلاه ان السلسلة المظللة بالمربع الاحمر كان لابد ان تكون في نهاية الجملة او في نهاية السلسلة 
النصية لكي تتم عملية المطابقة بشكل ناجح لانه لو كانت الكلمة المظللة بالمربع الاحمر بهذه الصورة لكانت عملية 
ş_="per1programmindisfun";‏ 


if (#programming™b# J { 
prûint "There is Match"; 


1 


B1se 
print "No match Found"; 


} 
Figure(48)‏ 
1b‏ 
وضح الشكل التو ضيحي أعلاه كلمة و1١‏ "١9۲٠م‏ هي ليست نهاية السلسلة النصية بل يوجد بعدها تكلمة وهذه 
التكملة هي حروف وعند هذه المرحلة عندما يقوم المبرمج بتنفيذ البرنامج فأنه سوف يحصل على النتيجة ألاتية 
No match Found‏ 
Figure(49)‏ 
\b‏ 
ولكن اذا كانت هذه الاضافة ضرورية ولايمكن الاستغناء عنها فأنه من الممكن ان يتم اضافية تعديل برمجي بسيط 
لن يضر بالبنية البرمجية الخاصة بالنطام وهذا التعديل يكون كألاتي 
*Code(55)‏ 
$_="perlprogramming isfun";‏ 
if /(programming\b/){‏ 


print "There is Match"; 


else { 
print "No match Found"; 


} 


3 
RegExp 


الان عندما يتم تنفيذ البرنامج أعلاه فان الناتج من عملية التنفيذ هي النتيجة ألاتية التي تشير الى حصول تطابق في 
البرنامج 
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Figure(50) 
\b 
على الرغم من ان التعديل الذي تمت اضافته الى البرنامج هو عبارة عن تعديل بسيط يكمن في أضافة فراغ واحد‎ 
Character Class JI الى البرنامج ولكن هذا الفراغ الذي تمت اضافته الى البرنامج أعلاه فأنه في تقنية‎ 
فأن الفراغ يتم تصنيفه على أنه ء|‎ 
وذكر في الاعلى ان هذا المعرف يعمل على مبدأً او قانون‎ 


*Code(56) 
IW acs |W 
2-\B 


هذا المعرف ايضا يعمل على وفق نفس المبداً ولكن مع بعض الاختلافات الطفيفة من ناحية العمل يكون المبدأً العام 
او القانون الذي يسير عليه هذا المعرف هو القانرن الاتي 
*Code(57)‏ 


ويكون التمثيل البرمجي العام لهذا المعرف هو كما يلي من خلال المقطع البرمجي ألاتي 
*Code(58)‏ 


$_="perlprogrammingisfun"; 
if A\Bis\B/){ 

print "There is Match"; 

else { 

print "No match Found"; 


} 


والان اذا تم تنفيذ البرنامج فان ناتج تنفيذه سوف يكون كما يلي من خلال الشكل التوضيحي أدناه 


Figure(51) 
\B 


RegExp 


In The ShaDow of The BlacK SalnT 
Capturing 
التعابير القياسية تسمح للمبرمج بوضع أجزاء من من ال ئ١٣١عا)هم في ١۸١٥)»م فرعية ويتم خزنها في متغيرات‎ 
Capu لكي يتم استدعائها في وقت اخر عندما تدعو الحاجة لها وهذه التقنية يطلق عليها وہ1‎ 
Capturing 
)( هي عملية التقاط جزء من السلسلة النصية ويتم وضعها في متغير أخر لاستعمال لاحق ويتم استعمال الاقواس‎ 
في التعريف العام لهذه التقنية ويكون التمثيل البرمجي العام لهذه التفنية هو كالاتي‎ 
*Code(59) 


$_="PerlProgramming"; 

if ((w)(w)(\w)(\w)/){ 

print "The First Letter is:-$1","\n"; 
print "The Second Letter is:-$2","\n"; 
print "The Third Letter is:-$3","\n"; 
print "The Fourth Letter is:-$4","\n"; 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية تنفيذه ستكون كما يلي من خلال الشكل التوضيحي 
اش 


Figure(52) 


Capture 
في المقطع البرمجي أعلاه تم استخدام تقنية sئيا€ ٣ععه ٣ه وذلك من اجل ان يتم التقاط حرف من السلسلة‎ 
النصية المستخدمة في المقطع البرمجي حيث ان كل قوس من(س)) يعمل على التقاط حرف وباستخدام اربع اقواس‎ 
فأن النتيجة هي التقاط أربع أحرف من السلسلة وكانت النتيجة هي ظهور كلمة ۲1ء عند تنفيذ البرنامج وفي كل‎ 
$1 قوس تم استخدامه يقوم هذا القوس الاول بتحويل الحرف الذي يحتويه الى المتغير‎ 
$2 ثم يقوم القوس الثاني بتحويل الحرف الذي يحتويه الى المتغير الثاني‎ 
43 ثم يقوم القوس الثالت بتحويل الحرف الذي يحتويه الى المتغير الثالث‎ 
$4 ثم يقوم القوس الرابع بتحويل الحرف الذي يحتويه الى المتغير الرابع‎ 
يحتوي المتغير الاول (81) على الحرف الاول وهو الحرف م‎ 


RegExp 
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يحتوي المتغير الثاني (82) على الحرف الثاني وهو الحرف ع 
يحتوي المتغير الثالث (83) على الحرف الثالث وهو الحرف ۲ 
ويحتوي الحرف الرابع (54) على الحرف الرابع وهو الحرف 1 
ومن الممكن ان يتم تطبيق هذه التقنية ليس على الحرف فقط ولكن من الممكن ان يتم تطبيقها على الارقام ويكون 
الاسلوب البرمجي الذي يتم به هذا التمثيل هو كما يلي 
*Code(60)‏ 


$_="123456789"; 

if CODNDODOAAIE 

print "The First Digit is:-$1","\n"; 
print "The Second Digit is:-$2","\n"; 
print "The Third Digit is:-$3","\n"; 
print "The Fourth Letter is:-$4","\n"; 


ويكون ناتج تنفيذ المقطع البرمجي أعلاه كما يلي من خلال الشكل التوضيحي أدناه 


Figure(53) 


Capturing 
أما عن الطريقة البرمجية التي تم تنفيذ الكود بها فهي الطريقة عينها التي تم ذكرها في عندما تم شرح المقطع‎ 
*Cهdءع)58( البرمجي المرقم بالرقم‎ 
يلاحظ في بعض المقطاع البرمجية التي تستعمل تقنية ال و١٣٠.)مهء أنها تحتوي على علامة(+)‎ 
ومن هذه المقاطع التي تحتوي على الكود البرمجي التالي‎ 
*Code(61) 
$_="123456789"; 
if CNA 
print "The All Digits Are:-$1","\n"; 


عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل التوضيحي آلاتي 
Figure(54)‏ 
Capturing With +‏ 


RegExp 


لو كان المقطع البرمجي أعلاه لا يحتوي على علامة الجمع (+) لكان الناتج من عملية التنفيذ سوف يكون هو 
طباعة الرقم الاول من السلسلة النصية وهذا الرقم سيكون الرقم 1 

ولكن نظرا لوجود العلامة الخاصة بالجمع فأن هذه العلامة تقوم بأخذ كافة العناصر الموجودة في السلسلة النصية 
المستخدمة مهما كان طول هذه السلسلة وارسالها الى المتغير $1 الذي سوف يستلم البيانات 

ومن الممكن ان يتم استعمال هذه التقنية أي تقنية ال + W۸‏ وہ امه مع الحروف و السلاسل النصية والمقطع 


البرمجي ألاتي يوضح الطريقة التي يتم اتباعها مع السلاسل النصية 
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*Code(62) 


$_="Perl programming is Fun"; 
if ((w+)(w)(\w)(w))t 

print $1,"\n"; 

print $2,"\n" 

print $3,"\n 

print $4,"\n"; 


3 
r 
3 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ تكون كما يلي من خلال الشكل التوضيحي 
ال 


Figure(55) 
Capturing With + 
ولكن النتيجة التي تم الحصول عليها من خلال هذا البرنامج لم تكن هي النتيجة المتوقعة كان من المفترض أن‎ 
يكون الناتج لتنفيذ المقطع البرمجي السابق هو الناتج ألاتي‎ 


Figure(56) 


Capturing 


النيت قى الحصرل طى انج المرضة افك 65 كان مبب بيطا وهر وجرد فراع ون مقاط ال 
النصية المستخدمة في البرنامج 


RegExp 
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$_="Per] Programming Is Fun"; 
Figure(57) 
Dash 
ويلاحظ في الشرط الخاص بالبرنامج ان ال‎ م۲٠9۲»‎ "İ السبب هو وجود فراغ بين كلمة |ءم وكلمة وم‎ 


5ئ1 Character‏ الذي تم أستخدامه في البرنامج هو إو الفراغ الذي في البرنامج لا يعود الى فة |W‏ 
ولكن يعود الى فة و| لانه فراغ 

ولكي يحصل المبرمج على على نتيجة مشابھة للنتيجة الموضحة بالشکل(56)٥‏ ںو۴۳ فهذا يتم عن طريق أجراء 
تعديل برمجي بسيط کألاتي في المقطع البرمجي أدناه 


*Code(63) 


$_="PerlProgrammingIsFun"; 
if ((w+)(\w)(wJ(\w)/)t 

print $1,"\n"; 

print $2,"\n"; 

print $3,"\n"; 

print $4,"\n"; 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ سوف يكون كما يلي من خلال الشكل 
التوضيحي ألاتي 


Figure(58) 
Capturing With + 

يوضح المقطع البرمجي أعلاه ان القوس البرمجي الذي يحمل السمة (+س)) يقوم بعمل التقاط لكافة الحروف 
المكونة للسلسة النصية ولكن يلاحظ ان هذا القوس يتوقف عندما يتم التوصل الى أخر 3 أحرف من السلسلة 
النصية والسبب وراء ذلك هو وجود 3 اقواس من بعد القوس(+ ۷ والتي تعمل على التقاط الحروف الثلاثة 
الاخيرة من السلسلة 
الحالة الاخيرة التي يتم التطريق اليها هي الحالة التي يكون القوس البرمجي بحالة مشابهة لهذه الحالة 
*Code(64)‏ 

(lw)+ 
تحتوي بعض المقاطع البرمجية التي تستعمل تقنية ال و1 امه أن القوس البرمجي الذي المستخدم في البرنامج‎ 


۴ ا‎ 
RegExp 


يكون مشابه للقوس الموضح في المقطع البرمجي(63)٥1٠)*‏ وتمثل هذه التقنية برمجيا كما يلي من خلال 


In The ShaDow of The BlacK SalnT 


المقطع البرمجي ألاتي 
*Code(65)‏ 
$_="PerlProgrammingIsFun";‏ 
if C(w)+/){‏ 
print $1,"\n";‏ 
j‏ 
ألان عندما يتم تنفيذ المقطع البرمجي أعلاه فأن النتيجة التي سيتم الحصول عليها هي كألاتي من خلال الشكل 
التوضيحي أدناه 
Figure(59)‏ 
Capturing (\lw)+‏ 

النتيجة البرمجية التي يتم الحصول عليها من المقطع البرمجي أعلاه هي الحصول على الحرف الاخير الموجود في 
السلسلة النصية 


$_="Per1ProgrammingIsFunY ; 
Figure(60) 
Capturing (l\lw)+ 


Fa 
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Alternation 
یتم استخدام هذه التقنية في بعض الحالات التي يكون المطلوب منها تكوين عدد من الاحتمالات في عملية المطابقة‎ 
ويستخدم الرمز | للتعبير او للتعريف عن هذه التقنية البرمجية ويكون التمثيل البرمجي الخاص بها هو كألاتي في‎ 
المقطع البرمجي أدناه‎ 
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*Code(66) 


9_= "fill 2 
if Cflklw|hlilV){ 
print "There Is match"; 


else {‏ 
print "No Match";‏ 
الان عندما يتم تنفيذ البرنامج يتم الحصول على نتيجة مشابهة للنتيجة الموضحة في الشكل التالي : 
There Is match‏ 
Figure(61)‏ 
Alternation‏ 
وفي المقطع البرمجي أعلاه فأن قائمة الاحتمالات التي عندما يتم استخدامها يتم الحصول على التطابق هي 
fill‏ -1 
kill‏ -2 
will‏ -3 
hill‏ -4 


في الحالات التي تكون السلسلة النصية مطابقة للتعبير القياسي الاول والتعبير القياسي الثاني ففي هذه الحالة تكون 
الاولوية للخيار الاول ومن بعد ذلك يأتي الخيار الثاني وهكذا من الممكن ان يتم تمثيل هذه الحالة البرمجية كما يلي 
مدال الفط الرس أ 

*Code(67) 


$_="perlprog"; 

if /perl|programming |programmer/){ 
print "There Is match"; 

1 
else { 

print "No Match"; 


عندما يتم تنفيذ ١‏ لمقطع البرمجي أعلاه فأن الناتج من عملية التنفيذ هي تشير الى التطابق وكما يلي من خلال الشكل 


التوضيحي ألاتي 


FÎ 
RegExp 


In The ShaDow of The BlacK SalnT 


Figure(62) 


Possibilities 


يوضح المقطع البرمجي أعلاه ان البرنامج يحتوي على السلسة النصية 
*Code(68)‏ 


perlprog 
والتعبير القياسي الذي يحتويه البرنامج هو التعبير القياسي ألاتي‎ 
*Code(69) 


/perl|programming |programmer/ 
يستخلص من المقطع البرمجي(67)٥ء04)*والمقطع البرمجي(68)٥04)* ان التطابق بين السلسلة النصية‎ 
والتعبير القياسي هو في أول 8 أحرف‎ 
5_="perlprog"; 
if (/perl[progqramming | programmer / ) { 
Figure(63) 
کک‎ 
E الختار الاول‎ lS E E E 
ان الخيار الثاني من التعبير القياسيي يطابق ايضا اول 8 احرف من السلسلة النصية ولكن البيرل تعمد على اختيار‎ 
وعلى سبيل الافتراض اذا كان‎ perl programming التطابق الذي تحصل عليه أو لا وفي هذه الحالة سوف ڍكون‎ 
الخيار الاول لا يسبب التطابق سوف تتوجه البيرل الى الخيار الثاني وهكذا الى ان يتم الحصول على التطابق‎ 
)ہہ ٣ع)[A مما یزید من الامکانيات‎ ٥۸ الی تقنیة ال‎ Ex) ٣a ںاہع]‎ ٣e من الممکن أن یتم اضافة‎ 
المتاحة لاستعمال هذه التقنية ومن الميزات التي يتم اضافتها الى هذه التقنية هي ميزة ال( ) والمقطع البرمجي‎ 
ألاتي يوضح الكيفية التي يتم تمثيل هذه الميزة برمجيا‎ 
*Code(/0) 
$_="perlgeek"; 
if /perl(programmer |geek)?/){ 


print "There Is match"; 


1 
else { 
print "No Match"; 


الان عندما يتم تنفيذ المقطع البرمجي أعلاه فان الناتج من عملية تنفيذ البرنامج اعلاه سوف تكون كما يلي من 


RegExp 
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خلال الشكل التوضيحي ألاتي 
There Is match‏ 
Figure(64)‏ 
Feature‏ ? 
وفي الكود أعلاه فأن قائمة الاحتمالات التي عندما يتم استخدامها يتم الحصول على التطابق هي 
perl‏ -1 
perlprogrammer‏ -2 
perlgeek‏ -3 
ولكن مما تجدر الاشارة اليه ان المقطع(69)ع1٥0)*يحتوي‏ على ميزة اخرى في محتوياته هي ال ڇ٣1٣uارca‏ 


if | (yper1( progr ammer | geek 1 


Figure(65) 


capturing with ? 


الذي تم الحصول عليه من داخل الاقواس البرمجية التي يحتويها البرنامح اذن الان من الممكن ان يتم اعادة كتابة 
البرنامج السابق مع أمكانية معرفة ماهو التطابق الذي سيتم الحصول عليه من داخل الاقواس الخاصة بتقنية التقاط 
*Code(71)‏ 


اذن عندما يحتوي البرنامج على تقنية ال وم امه فهذا يعني أن المبرمج له القدرة على معرفة ما هو التطابق 


$_="perlgeek"'; 

if /perl(programmer |geek)?/){ 
print "There Is match\n"; 
print $1,"\n"; 

else { 

print "No Match"; 


والان عندما يتم تنفيذ البرنامج فان الناتج من عملية التنفيذ سيكون الحصول على التطابق و الحصول على الخيار 
الذي تمت مطابقته من داخل الاقواس التي يحتويها البرنامج 


Figure(66) 


Execution Result 
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Fg 
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اذن الوظيفة التي يقوم بها المعرف ؟ هي السماح للكلمة المفتاحية المستخدمة في التعبير القياسي ان تكون جزء 
قابل للمقارنة أي كما يلي من خلال المقطع البرمجي الاتي 


تشير الى حدوث تطابق في البرنامج 


Figure(67) 
KeyWord 


*Code(/2) 


$_="perl"; 

if /perl(programmer |geek)?/){ 
print "There Is match\n"; 
print $1,"\n"; 

else { 

print "No Match"; 


الان عندما يتم تنفيذ البرنامج يلاحظ ان النتيجة التي يتم الحصول عليها من عملية التنفيذ هي النتيجة الاتية و التي 


FÎ 
RegExp 


Backtrack 
ان عملية البحث عن التطابق والانتقال الى الحروف او الكلمة الاخرى ان لم يتم الحصول على التطابق يطلق على‎ 
هذه العملية عملية ال )عه٣))ءهط يتم تمثيل هذه العملية برمجيا كما يلي من خلال المقطع البرمجي الاتي‎ 
*Code(3) 


$_="abcde"; 

if /((abd\abc)(dafld|de)/){ 
print "There Is Match"; 
else { 

print "There `s no match"; 


عندما يتم تنفيذ البرنامج اعلاه فان الناتج من التنفيذ سوف يشير الى حدوث التطابق ولكن المهم في هذا المقطع . 
الكيفية التي تتم بها عمليات التطابق في التعابير القياسية وسيتم تلخيص عملية المقارنة بالتعابير القياسية بالنقاط 
الاتية 

أولا : يتم البدء بالحرف الاول من السلسة النصية في التعبير القياسي 

ثانيا : يتم أخذ المجمو عة الاولى من ال ااا ١٣)0١‏ ع)]Aوهذه‏ المجموعة هي لطي 

تنالتا : الحرف الاول من السلسلة النصية يطابق الحرف الاول من مجمو عة ال J‏ طي والحرف الثاني من السلسلة 
النصية يطابق الحرف الثانية من مجمو عة ال إا 

زا اورف ار ق ا اه رر الكر ةف الخر ت اقلت س ار اقاي 
اذن في هذه الحالة يوجد ل ٤1ء(‏ لذا سيتم عمل )يآ )ء»8بحرفين تم الحصول على التطابق لهم وهذين 
الحرفين هما اي 

خامسا : سيتم الانتقال الى المجمو عة الثانية من ال ئا ١10۸)ي٣ع)]Aو‏ هذه المجموعة هي عاي 

اسا ت الخضر ل لے الاق ن ال ع 0 رها ب ان الخر قاح م ف ك افد م الخرف 
التالث من المجمو عة الثانية Alternation list‏ 

ال ع ق رق مخ f‏ هد الل ع ان س اتر 
اللاب و الحر ف وف( اة 

ثامنا : الحرف في التعبير القياسي لا يطابق الحرف عفي السلسة النصية لذا في هذه الحالة أيضا يو جد ل ٤ء5‏ 
وسيحصل )ع»ي١۲[ 8B»)‏ والانتقال الى المجموعة الاخرى وهي حرف ال #وبما انه حرف ال قد حصل على 
افا و ا ا ن د ا ا و د وو ار ار کے و ترا 
فا الخرف ا من اام عاو س ار ااي ان لحرت اکر س اا ا وا 
بن الخحصول لى التطاق الكامل ن اكير الاي و الم اللنصة المعطاا فى المتطع البرمكى 


In The ShaDow of The BlacK SalnT 


*License 

This Book is Created under the terms of the GPL (General public License) 
*Greets 

Greets for (Binary,Striker,Storm,SNIX,Raidy,Enc,SoFy.MutatiOn) 
*Special Thanks 


To the person who always support me and always put me on the right way and be there 
for me whenever i want god bless you and thanks for your great support 


But here | am, on the road again 
here I am, up on the stage 
here I go, playing the star again 
there I go, turn the page 
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